rrspacing_1.f90\gfortran.dg\testsuite\gcc - delta/gcc.git - gcc.gnu.org: git/gcc.git

index : delta/gcc.git

gcc.gnu.org: git/gcc.git

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/rrspacing_1.f90

blob: 551a61584b376e534603ec5e60c79347dee3c88f (plain)

! { dg-do run }
program m
  integer i
  real x,y
  real, parameter :: a = -3.0
  i = int(rrspacing(a))
  if (i /= 12582912) STOP 1
end program m