blob: e444b09241bf0c0401c0fda1ded1002e21289f77 [file] [log] [blame]
! { dg-do compile }
program foo
print *, float(z'1234') ! { dg-error "cannot appear in" }
end program foo