32 lines
664 B
Fortran
32 lines
664 B
Fortran
! { 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) 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
|
|
|