29 lines
753 B
Fortran
29 lines
753 B
Fortran
! { 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
|