1! { dg-do run }
2!
3! Tests the fix for PR63232
4!
5! Contributed by Balint Aradi  <baradi09@gmail.com>
6!
7module mymod
8  implicit none
9
10  type :: wrapper
11    character(:), allocatable :: string
12  end type wrapper
13
14contains
15
16
17  subroutine sub2(mystring)
18    character(:), allocatable, intent(out) :: mystring
19
20    mystring = "test"
21
22  end subroutine sub2
23
24end module mymod
25
26
27program test
28  use mymod
29  implicit none
30
31  type(wrapper) :: mywrapper
32
33  call sub2(mywrapper%string)
34  if (.not. allocated(mywrapper%string)) call abort
35  if (trim(mywrapper%string) .ne. "test") call abort
36
37end program test
38