1! Test for the ISNAN intrinsic 2! 3! { dg-do run } 4! { dg-add-options ieee } 5! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } } 6! 7 implicit none 8 real :: x 9 x = -1.0 10 x = sqrt(x) 11 if (.not. isnan(x)) call abort 12 x = 0.0 13 x = x / x 14 if (.not. isnan(x)) call abort 15 16 x = 5.0 17 if (isnan(x)) call abort 18 x = huge(x) 19 x = 2*x 20 if (isnan(x)) call abort 21end 22