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