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!
7module class_vector
8  implicit none
9  type vector
10  end type vector
11end module class_vector
12
13module 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
21end module tools_math
22
23module smooth_mesh
24  use tools_math
25  implicit none
26  type(vector ) :: new_pos  ! { dg-error "used before it is defined" }
27end module smooth_mesh
28
29