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