blob: a2007752f3c54716a9ba8ab69bd54abfe22735be (
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) ) ) call abort
if ( .not. ASSOCIATED(ptr) ) call abort
END SUBROUTINE
|
