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

 ! { dg-do compile }

 program p
    class(*), allocatable :: z
    z = z'1' ! { dg-error "BOZ literal constant at" }
 end
	! { dg-do compile }

	program p
	class(*), allocatable :: z
	z = z'1' ! { dg-error "BOZ literal constant at" }
	end