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