1 ! Test for the ISNAN intrinsic
4 ! { dg-add-options ieee }
5 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
11 if (.not
. isnan(x
)) call abort
14 if (.not
. isnan(x
)) call abort
17 if (isnan(x
)) call abort
20 if (isnan(x
)) call abort