| ! { dg-do compile } |
| ! Tests the fix for PR37274 comment 4 in which the use associated 'vector' was
|
| ! passed up from the interface to the module 'tools_math'. |
| ! |
| ! Contributed by Mikael Morin <mikael.morin@tele2.fr> |
| ! |
| module class_vector
|
| implicit none
|
| type vector
|
| end type vector
|
| end module class_vector
|
|
|
| module tools_math
|
| implicit none
|
| interface lin_interp
|
| function lin_interp_v()
|
| use class_vector
|
| type(vector) :: lin_interp_v
|
| end function lin_interp_v
|
| end interface
|
| end module tools_math
|
|
|
| module smooth_mesh
|
| use tools_math
|
| implicit none
|
| type(vector ) :: new_pos ! { dg-error "used before it is defined" }
|
| end module smooth_mesh
|
|
|