blob: 7262495529d8d9d6ecc2a51d8d9c2e649e8f981d [file] [log] [blame]
! { 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