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