1! Test for the ISNAN intrinsic on constants 2! 3! { dg-do run } 4! { dg-options "-fno-range-check" } 5! { dg-add-options ieee } 6! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } } 7! 8 implicit none 9 character(len=1) :: s 10 write(s,'(L1)') isnan(0.) 11 if (s /= 'F') call abort 12 13 write(s,'(L1)') isnan(exp(huge(0.))) 14 if (s /= 'F') call abort 15 16 write(s,'(L1)') isnan(0./0.) 17 if (s /= 'T') call abort 18end 19