Skip to content
Snippets Groups Projects
Commit 0e3e1836 authored by t-karatsu's avatar t-karatsu Committed by Adam J. Stewart
Browse files

arpack-ng: Fixed error that is not compatible with isnan. (#13246)

parent 26141ad4
No related branches found
No related tags found
No related merge requests found
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
......@@ -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')
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment