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