| ! { 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 <elizabeth.l.yip@boeing.com> | |
| program test_entry | |
| common // j | |
| real a(10) | |
| a(1) = 999. | |
| call x | |
| if (j .ne. 1) STOP 1 | |
| call y(a,10) | |
| if (j .ne. 2) STOP 2 | |
| 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 | |