RISC-V: Refactor Dynamic LMUL codes
[official-gcc.git] / gcc / testsuite / gfortran.dg / boz_float_3.f90
blob7262495529d8d9d6ecc2a51d8d9c2e649e8f981d
1 ! { dg-do run }
2 ! { dg-options "-fallow-invalid-boz -w" }
3 program foo
4 integer i
5 i = float(z'1234')
6 if (i /= 4660.0) stop 1
7 end program foo