2 !{ dg-options "-fno-range-check" }
3 !{ dg-add-options ieee }
4 !{ dg-skip-if "NaN not supported" { spu-*-* } }
5 ! PR19310 and PR19904, allow disabling range check during compile.
6 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
9 real, parameter :: zero
=0, nan
=0/zero
10 complex :: z
= (-0.1,-2.2)/(0.0,0.0)
11 complex :: z2
= (0.1,1)/0
12 complex :: z3
= (1e35
, -2e3
)/1.234e-37
13 complex :: z4
= (1e-35, -2e-35)/1234e34
19 if (trim(adjustl(str
)) .ne
. 'Infinity') STOP 1
24 if (trim(adjustl(str
)) .ne
. '-Infinity') STOP 3
27 if (trim(adjustl(str
)) .ne
. 'NaN') STOP 4
30 if (trim(adjustl(str
)) .ne
. 'NaN') STOP 5
32 write(str
,*) 1.0/(-0.)
33 if (trim(adjustl(str
)) .ne
. '-Infinity') STOP 6
36 if (trim(adjustl(str
)) .ne
. '-Infinity') STOP 7
39 if (trim(adjustl(str
)) .ne
. 'Infinity') STOP 8
42 if (trim(adjustl(str
)) .ne
. 'NaN') STOP 9
45 if (trim(adjustl(str
)) .ne
. '(NaN,NaN)') STOP 10
48 if (trim(adjustl(str
)) .ne
. '(NaN,NaN)') STOP 11
51 if (trim(adjustl(str
)) .ne
. '(Inf,-Inf)') STOP 12
54 if (trim(adjustl(str
)) .ne
. '(0.00000000,-0.00000000)') STOP 13