15 lines
252 B
Fortran
15 lines
252 B
Fortran
|
! { dg-do run }
|
||
|
!
|
||
|
! PR fortran/42936
|
||
|
!
|
||
|
! Contributed by Mat Cross
|
||
|
!
|
||
|
PROGRAM PASSES_NULL
|
||
|
CALL SUB(NULL())
|
||
|
CONTAINS
|
||
|
SUBROUTINE SUB(I)
|
||
|
INTEGER, POINTER :: I(:,:,:)
|
||
|
IF (ASSOCIATED (I)) CALL ABORT ()
|
||
|
END SUBROUTINE SUB
|
||
|
END PROGRAM PASSES_NULL
|