boz_float_3.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/boz_float_3.f90

blob: 7262495529d8d9d6ecc2a51d8d9c2e649e8f981d (plain)

! { dg-do run }
! { dg-options "-fallow-invalid-boz -w" }
program foo
   integer i
   i = float(z'1234')
   if (i /= 4660.0) stop 1
end program foo