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