| !{ dg-do run } |
| !{ dg-options "-fno-range-check" } |
| !{ dg-add-options ieee } |
| ! PR19310 and PR19904, allow disabling range check during compile. |
| ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> |
| program main |
| character(len=80) str |
| real, parameter :: zero=0, nan=0/zero |
| complex :: z = (-0.1,-2.2)/(0.0,0.0) |
| complex :: z2 = (0.1,1)/0 |
| complex :: z3 = (1e35, -2e3)/1.234e-37 |
| complex :: z4 = (1e-35, -2e-35)/1234e34 |
| real :: a |
| a = exp(1000.0) |
| b = 1/exp(1000.0) |
| |
| write(str,*) a |
| if (trim(adjustl(str)) .ne. 'Infinity') STOP 1 |
| |
| if (b .ne. 0.) STOP 2 |
| |
| write(str,*) -1.0/b |
| if (trim(adjustl(str)) .ne. '-Infinity') STOP 3 |
| |
| write(str,*) b/0.0 |
| if (trim(adjustl(str)) .ne. 'NaN') STOP 4 |
| |
| write(str,*) 0.0/0.0 |
| if (trim(adjustl(str)) .ne. 'NaN') STOP 5 |
| |
| write(str,*) 1.0/(-0.) |
| if (trim(adjustl(str)) .ne. '-Infinity') STOP 6 |
| |
| write(str,*) -2.0/0. |
| if (trim(adjustl(str)) .ne. '-Infinity') STOP 7 |
| |
| write(str,*) 3.0/0. |
| if (trim(adjustl(str)) .ne. 'Infinity') STOP 8 |
| |
| write(str,*) nan |
| if (trim(adjustl(str)) .ne. 'NaN') STOP 9 |
| |
| write(str,*) z |
| if (trim(adjustl(str)) .ne. '(NaN,NaN)') STOP 10 |
| |
| write(str,*) z2 |
| if (trim(adjustl(str)) .ne. '(NaN,NaN)') STOP 11 |
| |
| write(str,*) z3 |
| if (trim(adjustl(str)) .ne. '(Inf,-Inf)') STOP 12 |
| |
| write(str,*) z4 |
| if (trim(adjustl(str)) .ne. '(0.00000000,-0.00000000)') STOP 13 |
| end program main |
