1 2 3 4
! { dg-do compile } program foo print *, float(z'1234') ! { dg-error "cannot appear in" } end program foo