! { dg-do run }
!
! Tests the fix for PR63232
!
! Contributed by Balint Aradi  <baradi09@gmail.com>
!
module mymod
  implicit none

  type :: wrapper
    character(:), allocatable :: string
  end type wrapper

contains


  subroutine sub2(mystring)
    character(:), allocatable, intent(out) :: mystring

    mystring = "test"

  end subroutine sub2

end module mymod


program test
  use mymod
  implicit none

  type(wrapper) :: mywrapper

  call sub2(mywrapper%string)
  if (.not. allocated(mywrapper%string)) STOP 1
  if (trim(mywrapper%string) .ne. "test") STOP 2

end program test