2 ! Tests the fix for PR30531 in which the interface derived types
3 ! was not being associated.
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
9 integer, allocatable
:: md(:)
11 end module foo_type_mod
16 subroutine foo_initvg(foo_a
)
18 Type(foo_type
), intent(out
) :: foo_a
19 end subroutine foo_initvg
24 subroutine foo_ext(foo_a
)
26 Type(foo_type
) :: foo_a
28 call foo_initvg(foo_a
)
29 end subroutine foo_ext