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