gcc/testsuite/gfortran.dg/class_26.f03

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