blob: be61f2afbe6dad2185e20f16ff7fe6e4ac1b7118 (
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
|
! { dg-do run }
! Tests the fix for PR40440, in which gfortran tried to deallocate
! the allocatable components of the actual argument of CALL SUB
!
! Contributed by Juergen Reuter <juergen.reuter@desy.de>
! Reduced testcase from Tobias Burnus <burnus@gcc.gnu.org>
!
implicit none
type t
integer, allocatable :: A(:)
end type t
type (t) :: arg
arg = t ([1,2,3])
call sub (func (arg))
contains
function func (a)
type(t), pointer :: func
type(t), target :: a
integer, save :: i = 0
if (i /= 0) call abort ! multiple calls would cause this abort
i = i + 1
func => a
end function func
subroutine sub (a)
type(t), intent(IN), target :: a
if (any (a%A .ne. [1,2,3])) call abort
end subroutine sub
end
|
