Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! Tests the fix for PR37274 comment 4 in which the use associated 'vector' was

! Tests the fix for PR37274 comment 4 in which the use associated 'vector' was

! passed up from the interface to the module 'tools_math'.

! passed up from the interface to the module 'tools_math'.

!

!

! Contributed by Mikael Morin  

! Contributed by Mikael Morin  

!

!

module class_vector

module class_vector

  implicit none

  implicit none

  type vector

  type vector

  end type vector

  end type vector

end module class_vector

end module class_vector

module tools_math

module tools_math

  implicit none

  implicit none

  interface lin_interp

  interface lin_interp

     function lin_interp_v()

     function lin_interp_v()

       use class_vector

       use class_vector

       type(vector) :: lin_interp_v

       type(vector) :: lin_interp_v

     end function lin_interp_v

     end function lin_interp_v

  end interface

  end interface

end module tools_math

end module tools_math

module smooth_mesh

module smooth_mesh

  use tools_math

  use tools_math

  implicit none

  implicit none

  type(vector ) :: new_pos  ! { dg-error "used before it is defined" }

  type(vector ) :: new_pos  ! { dg-error "used before it is defined" }

end module smooth_mesh

end module smooth_mesh

! { dg-final { cleanup-modules "class_vector tools_math smooth_mesh" } }

! { dg-final { cleanup-modules "class_vector tools_math smooth_mesh" } }