gcc/testsuite/gfortran.dg/null_4.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/42936
   4 !
   5 ! Contributed by Mat Cross
   6 !
   7 PROGRAM PASSES_NULL
   8   CALL SUB(NULL())
   9 CONTAINS
  10   SUBROUTINE SUB(I)
  11     INTEGER, POINTER :: I(:,:,:)
  12     IF (ASSOCIATED (I)) CALL ABORT ()
  13   END SUBROUTINE SUB
  14 END PROGRAM PASSES_NULL