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