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