1! { dg-do run } 2! Tests the patch for PR30025, aka 25818, in which the initialization 3! code for the array a, was causing a segfault in runtime for a call 4! to x, since n is missing. 5! 6! COntributed by Elizabeth Yip <elizabeth.l.yip@boeing.com> 7 program test_entry 8 common // j 9 real a(10) 10 a(1) = 999. 11 call x 12 if (j .ne. 1) call abort () 13 call y(a,10) 14 if (j .ne. 2) call abort () 15 stop 16 end 17 subroutine x 18 common // j 19 real a(n) 20 j = 1 21 return 22 entry y(a,n) 23 call foo(a(1)) 24 end 25 subroutine foo(a) 26 common // j 27 real a 28 j = 2 29 return 30 end 31 32