Skip to content

Commit 009f9e6

Browse files
committed
removed nonstandard isnan
1 parent f84c9da commit 009f9e6

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/polyroots_module.F90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -21,6 +21,7 @@
2121
module polyroots_module
2222

2323
use iso_fortran_env
24+
use ieee_arithmetic
2425

2526
implicit none
2627

@@ -5402,7 +5403,8 @@ function check_nan_inf(a) result(res)
54025403
! check for nan and inf
54035404
re_a = real(a,wp)
54045405
im_a = aimag(a)
5405-
res = isnan(re_a) .or. isnan(im_a) .or. (abs(re_a)>big) .or. (abs(im_a)>big)
5406+
res = ieee_is_nan(re_a) .or. ieee_is_nan(im_a) .or. &
5407+
(abs(re_a)>big) .or. (abs(im_a)>big)
54065408

54075409
end function check_nan_inf
54085410

0 commit comments

Comments
 (0)