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\r
   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\r
   8   implicit none\r
   9   type vector\r
  10   end type vector\r
  11 end module class_vector\r
  12 \r
  13 module tools_math\r
  14   implicit none\r
  15   interface lin_interp\r
  16      function lin_interp_v()\r
  17        use class_vector\r
  18        type(vector) :: lin_interp_v\r
  19      end function lin_interp_v\r
  20   end interface\r
  21 end module tools_math\r
  22 \r
  23 module smooth_mesh\r
  24   use tools_math\r
  25   implicit none\r
  26   type(vector ) :: new_pos  ! { dg-error "used before it is defined" }\r
  27 end module smooth_mesh\r
  28 \r
  29 ! { dg-final { cleanup-modules "class_vector tools_math smooth_mesh" } }