! { dg-do run } ! Tests the patch for PR30025, aka 25818, in which the initialization ! code for the array a, was causing a segfault in runtime for a call ! to x, since n is missing. ! ! COntributed by Elizabeth Yip program test_entry common // j real a(10) a(1) = 999. call x if (j .ne. 1) call abort () call y(a,10) if (j .ne. 2) call abort () stop end subroutine x common // j real a(n) j = 1 return entry y(a,n) call foo(a(1)) end subroutine foo(a) common // j real a j = 2 return end