Subversion Repositories openrisc

! { 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 

! Reduced testcase from Tobias Burnus  

!

  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