gcc/testsuite/gfortran.dg/boz_float_1.f90 - gcc - Git at Google

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