diff options
| -rw-r--r-- | var/spack/repos/builtin/packages/arpack-ng/incompatible_isnan_fix.patch | 22 | ||||
| -rw-r--r-- | var/spack/repos/builtin/packages/arpack-ng/package.py | 4 |
2 files changed, 26 insertions, 0 deletions
diff --git a/var/spack/repos/builtin/packages/arpack-ng/incompatible_isnan_fix.patch b/var/spack/repos/builtin/packages/arpack-ng/incompatible_isnan_fix.patch new file mode 100644 index 0000000000..a2290e4cc5 --- /dev/null +++ b/var/spack/repos/builtin/packages/arpack-ng/incompatible_isnan_fix.patch @@ -0,0 +1,22 @@ +diff -ur arpack-ng-3.7.0_org/TESTS/bug_58_double.f arpack-ng-3.7.0/TESTS/bug_58_double.f +--- arpack-ng-3.7.0_org/TESTS/bug_58_double.f 2019-10-17 12:17:22.496987817 +0900 ++++ arpack-ng-3.7.0/TESTS/bug_58_double.f 2019-10-17 17:12:37.669353870 +0900 +@@ -69,7 +69,7 @@ + & workev(3*maxncv), + & workl(3*maxncv*maxncv+6*maxncv), + & dd(maxn), dl(maxn), du(maxn), +- & du2(maxn), a(maxn,maxn), c(maxn,maxn) ++ & du2(maxn), a(maxn,maxn), c(maxn,maxn), rslt + c + c %---------------% + c | Local Scalars | +@@ -417,7 +417,8 @@ + print *, ' ' + c + end if +- if (isnan(v(1,1))) then ++ rslt = v(1,1) ++ if (rslt .ne. rslt) then + stop 1 + end if + c diff --git a/var/spack/repos/builtin/packages/arpack-ng/package.py b/var/spack/repos/builtin/packages/arpack-ng/package.py index f7628cc5ae..d283403515 100644 --- a/var/spack/repos/builtin/packages/arpack-ng/package.py +++ b/var/spack/repos/builtin/packages/arpack-ng/package.py @@ -59,6 +59,10 @@ class ArpackNg(Package): patch('make_install.patch', when='@3.4.0') patch('parpack_cmake.patch', when='@3.4.0') + # Fujitsu compiler does not support 'isnan' function. + # isnan: function that determines whether it is NaN. + patch('incompatible_isnan_fix.patch', when='%fj') + depends_on('blas') depends_on('lapack') depends_on('automake', when='@3.3.0', type='build') |