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