2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / nullify_2.f90
blob893ac2408f5f29d1f186235b5e59d9f1743e2d5d
1 ! { dg-do compile }
2 ! PR fortran/25146
3 program i
4 implicit none
5 TYPE (a) t1 ! { dg-error "is being used before" }
6 nullify(t1%x) ! { dg-error "Symbol 't1' at .1. has no IMPLICIT type" }
7 end program