gcc/testsuite/gfortran.dg/used_types_23.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR37274 comment 4 in which the use associated 'vector' was
   3 ! passed up from the interface to the module 'tools_math'.
   4 !
   5 ! Contributed by Mikael Morin  <mikael.morin@tele2.fr>
   6 !
   7 module class_vector
   8   implicit none
   9   type vector
  10   end type vector
  11 end module class_vector
  12
  13 module tools_math
  14   implicit none
  15   interface lin_interp
  16      function lin_interp_v()
  17        use class_vector
  18        type(vector) :: lin_interp_v
  19      end function lin_interp_v
  20   end interface
  21 end module tools_math
  22
  23 module smooth_mesh
  24   use tools_math
  25   implicit none
  26   type(vector ) :: new_pos  ! { dg-error "used before it is defined" }
  27 end module smooth_mesh
  28