Sign in
gnu
/
gcc
/
b305ec979d9dfc8153859a62a8ab9dd43c3bfc73
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
boz_float_3.f90
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