blob: 514c0a78f630d20e05650c0dfcaf6e085c8c1a52 (
plain)
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
|