blob: ba4de318c88462997dd95531c0660a3ac5ed129f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
! { 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
|
