gcc/testsuite/gfortran.dg/PR100029.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

! { dg-do run }
!
! Test the fix for PR100029
!

program foo_p
  implicit none

  type :: foo_t
  end type foo_t
  
  class(foo_t), allocatable :: pout

  call foo_s(pout)

contains

  subroutine foo_s(that)
    class(foo_t), allocatable, intent(out) :: that(..)
  end subroutine foo_s

end program foo_p