OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [real_const_3.f90] - Rev 816

Compare with Previous | Blame | View Log

!{ dg-run }
!{ dg-options "-fno-range-check" }
! PR19310 and PR19904, allow disabling range check during compile.
! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
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    )"

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.