blob: 638dae22d7cc78bd680452f2918a79dd3d1bedd9 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fallow-invalid-boz" }
program foo
print *, float(z'1234') ! { dg-warning "cannot appear in" }
end program foo