OSDN Git Service

2010-02-03 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / 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