OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [alloc_comp_result_2.f90] - Rev 694

Compare with Previous | Blame | View Log

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.