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

 ! { dg-do compile }
 !
 ! PR fortran/52325
 !
 real :: f
 cc%a = 5 ! { dg-error "Symbol 'cc' at .1. has no IMPLICIT type" }
 f%a = 5  ! { dg-error "Unexpected '%' for nonderived-type variable 'f' at" }
 end
	! { dg-do compile }
	!
	! PR fortran/52325
	!
	real :: f
	cc%a = 5 ! { dg-error "Symbol 'cc' at .1. has no IMPLICIT type" }
	f%a = 5 ! { dg-error "Unexpected '%' for nonderived-type variable 'f' at" }
	end