gcc/testsuite/gfortran.dg/pr15754.f90

   1 ! we didn't give a warning if the RHS of an assignment was NULL
   2 ! { dg-do-compile }
   3 INTEGER, POINTER :: P
   4 I = NULL() ! { dg-error "NULL appears" "Assignment non-pointer = NULL" }
   5 P = NULL() ! { dg-error "NULL appears" "Assignment pointer = NULL" }
   6 P => NULL()
   7 END