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

 ! { dg-do compile }
 ! PR fortran/25146
 program i
    implicit none
    TYPE (a) t1     ! { dg-error "is being used before" }
    nullify(t1%x)   ! { dg-error "Symbol 't1' at .1. has no IMPLICIT type" }
 end program
	! { dg-do compile }
	! PR fortran/25146
	program i
	implicit none
	TYPE (a) t1 ! { dg-error "is being used before" }
	nullify(t1%x) ! { dg-error "Symbol 't1' at .1. has no IMPLICIT type" }
	end program