1 2 3 4 5
! { dg-do compile } ! { dg-options "-fallow-invalid-boz" } program foo print *, float(z'1234') ! { dg-warning "cannot appear in" } end program foo