blob: d70e5f5a18e2fcb868998e3673cfc4eea433c5af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do run }
! PR 35719 - associated used to fail with zero-sized automatic arrays
! Test case contributed by Dick Hendrickson
program try_mf1053
call mf1053 ( 1, 2, 3, 4)
end
SUBROUTINE MF1053 (nf1, nf2, nf3, nf4)
INTEGER, pointer :: ptr(:,:)
INTEGER, target :: ILA1(NF2,NF4:NF3)
ptr => ILA1
if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) STOP 1
if ( .not. ASSOCIATED(ptr) ) STOP 2
END SUBROUTINE
|
