used_types_14.f90

用于进行gcc测试

! { dg-do compile }
! Tests the fix for PR30531 in which the interface derived types
! was not being associated.
!
! Contributed by Salvatore Filippone  <[e-mail]>
!
module foo_type_mod
  type foo_type
     integer, allocatable :: md(:)
  end type foo_type
end module foo_type_mod

module foo_mod

  interface
    subroutine foo_initvg(foo_a)
      use foo_type_mod
      Type(foo_type), intent(out) :: foo_a
    end subroutine foo_initvg
  end interface

contains

  subroutine foo_ext(foo_a)
    use foo_type_mod
    Type(foo_type) :: foo_a

    call foo_initvg(foo_a)
  end subroutine foo_ext

end module foo_mod
! { dg-final { cleanup-modules "foo_type_mod foo_mod" } }