Subversion Repositories openrisc_me

!{ dg-run }

!{ dg-options "-fno-range-check" }

! PR19310 and PR19904, allow disabling range check during compile.

! Contributed by Jerry DeLisle  

program main

  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 = (1e300, -2e-200)/1234e-325

  complex :: z4 = (1e-300, -2e-200)/1234e325

  real :: a

  a = exp(1000.0)

  b = 1/exp(1000.0)

  print *, a

  print *, b

  print *, -1.0/b

  print *, b/0.0

  print *, 0.0/0.0

  print *, 1.0/-0.0

  print *, -2.0/0.0

  print *, 3.0/0.0

  print *, nan

  print *, z

  print *, z2

  print *, z3

  print *, z4

end program main

!{dg-output "      +Infinity"

!{dg-output "   0.000000"

!{dg-output "      -Infinity"

!{dg-output "            NaN"

!{dg-output "            NaN"

!{dg-output "      -Infinity"

!{dg-output "      -Infinity"

!{dg-output "      +Infinity"

!{dg-output "            NaN"

!{dg-output " (           NaN,           NaN)"

!{dg-output " (           NaN,           NaN)"

!{dg-output " (     +Infinity,     -Infinity)"

!{dg-output " (  0.000000    ,  0.000000    )"