1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
! { dg-do compile } ! ! PR fortran/57141 ! ! Contributed by Roger Ferrer Ibanez ! MODULE M INTRINSIC :: NULL END MODULE M MODULE M_INTERN USE M IMPLICIT NONE REAL, POINTER :: ARR(:) => NULL() END MODULE M_INTERN