1! { dg-do compile } 2! Tests the fix for PR30531 in which the interface derived types 3! was not being associated. 4! 5! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> 6! 7module foo_type_mod 8 type foo_type 9 integer, allocatable :: md(:) 10 end type foo_type 11end module foo_type_mod 12 13module foo_mod 14 15 interface 16 subroutine foo_initvg(foo_a) 17 use foo_type_mod 18 Type(foo_type), intent(out) :: foo_a 19 end subroutine foo_initvg 20 end interface 21 22contains 23 24 subroutine foo_ext(foo_a) 25 use foo_type_mod 26 Type(foo_type) :: foo_a 27 28 call foo_initvg(foo_a) 29 end subroutine foo_ext 30 31end module foo_mod 32