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

 ! { dg-do compile }
 ! PR fortran/92898
 ! Code contributed by Gerhard Steinmetz
 program p
   print *, is_contiguous (null())     ! { dg-error "shall be an associated" }
 end
	! { dg-do compile }
	! PR fortran/92898
	! Code contributed by Gerhard Steinmetz
	program p
	print *, is_contiguous (null()) ! { dg-error "shall be an associated" }
	end