gcc/testsuite/gfortran.dg/nullify_4.f90

   1 ! { dg-do compile }
   2 ! PR fortran/40246
   3 !
   4 ! Check error recovery; was crashing before.
   5 !
   6 implicit none
   7 real, pointer :: ptr
   8 nullify(ptr, mesh%coarser) ! { dg-error "Symbol 'mesh' at .1. has no IMPLICIT type" }
   9 end