blob: d2b4e1eba0273a53c6ca40058cfe4c53d40eff69 (
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
32
33
34
35
36
37
38
39
|
! { dg-do run }
! PR 28416: Check that allocatable dummies can be passed onwards as non-assumed
! shape arg.
program main
implicit none
integer, allocatable :: a(:)
interface
subroutine foo(v_out)
integer, allocatable :: v_out(:)
end subroutine foo
end interface
call foo(a)
if (any(a /= [ 1, 2, 3 ])) call abort()
end program
subroutine foo(v_out)
implicit none
integer, allocatable :: v_out(:)
allocate(v_out(3))
call bar(v_out, size(v_out))
end subroutine foo
subroutine bar(v, N)
implicit none
integer :: N
integer :: v(N)
integer :: i
do i = 1, N
v(i) = i
end do
end subroutine bar
|
