gcc/testsuite/gfortran.dg/null_8.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/57141
   4 !
   5 ! Contributed by Roger Ferrer Ibanez
   6 !
   7 MODULE M
   8     INTRINSIC :: NULL
   9 END MODULE M
  10
  11 MODULE M_INTERN
  12     USE M
  13     IMPLICIT NONE
  14     REAL, POINTER :: ARR(:) => NULL()
  15 END MODULE M_INTERN