mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
32 lines
650 B
Fortran
32 lines
650 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) 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
|
|
|