2 !{ dg-options "-fno-range-check" }
3 !{ dg-options "-fno-range-check -mieee" { target sh*-*-* } }
4 ! PR19310 and PR19904, allow disabling range check during compile.
5 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
8 real, parameter :: zero
=0, nan
=0/zero
9 complex :: z
= (-0.1,-2.2)/(0.0,0.0)
10 complex :: z2
= (0.1,1)/0
11 complex :: z3
= (1e35
, -2e3
)/1.234e-37
12 complex :: z4
= (1e-35, -2e-35)/1234e34
18 if (trim(adjustl(str
)) .ne
. '+Infinity') call abort
20 if (b
.ne
. 0.) call abort
23 if (trim(adjustl(str
)) .ne
. '-Infinity') call abort
26 if (trim(adjustl(str
)) .ne
. 'NaN') call abort
29 if (trim(adjustl(str
)) .ne
. 'NaN') call abort
31 write(str
,*) 1.0/(-0.)
32 if (trim(adjustl(str
)) .ne
. '-Infinity') call abort
35 if (trim(adjustl(str
)) .ne
. '-Infinity') call abort
38 if (trim(adjustl(str
)) .ne
. '+Infinity') call abort
41 if (trim(adjustl(str
)) .ne
. 'NaN') call abort
44 if (trim(adjustl(str
)) .ne
. '( NaN, NaN)') call abort
47 if (trim(adjustl(str
)) .ne
. '( NaN, NaN)') call abort
50 if (trim(adjustl(str
)) .ne
. '( +Infinity, -Infinity)') call abort
53 if (trim(adjustl(str
)) .ne
. '( 0.0000000 , -0.0000000 )') call abort