gcc/testsuite/gfortran.dg/used_types_14.f90

   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 !
   7 module foo_type_mod
   8   type foo_type
   9      integer, allocatable :: md(:)
  10   end type foo_type
  11 end module foo_type_mod
  12
  13 module 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
  22 contains
  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
  31 end module foo_mod
  32 ! { dg-final { cleanup-modules "foo_type_mod foo_mod" } }