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