2 ! PR 35719 - associated used to fail with zero-sized automatic arrays
3 ! Test case contributed by Dick Hendrickson
7 call mf1053 ( 1, 2, 3, 4)
10 SUBROUTINE MF1053 (nf1, nf2, nf3, nf4)
11 INTEGER, pointer :: ptr(:,:)
12 INTEGER, target :: ILA1(NF2,NF4:NF3)
16 if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) call abort
17 if ( .not. ASSOCIATED(ptr) ) call abort