1! { dg-do run }
2!
3! PR 44065: [OOP] Undefined reference to vtab$...
4!
5! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
6
7module s_mat_mod
8  implicit none
9  type :: s_sparse_mat
10  end type
11contains
12  subroutine s_set_triangle(a)
13    class(s_sparse_mat), intent(inout) :: a
14  end subroutine
15end module
16
17module s_tester
18implicit none
19contains
20  subroutine s_ussv_2
21    use s_mat_mod
22    type(s_sparse_mat) :: a
23    call s_set_triangle(a)
24  end subroutine
25end module
26
27end
28
29