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