gcc/testsuite/gfortran.dg/typebound_call_16.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 41685: [OOP] internal compiler error: verify_flow_info failed
   4 !
   5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
   6
   7 module base_mat_mod
   8
   9   type  :: base_sparse_mat
  10   contains
  11     procedure, pass(a) :: get_nrows
  12   end type base_sparse_mat
  13
  14 contains
  15
  16   integer function get_nrows(a)
  17     implicit none
  18     class(base_sparse_mat), intent(in) :: a
  19   end function get_nrows
  20
  21 end module  base_mat_mod
  22
  23
  24   use base_mat_mod
  25
  26   type, extends(base_sparse_mat) :: s_coo_sparse_mat
  27   end type s_coo_sparse_mat
  28
  29   class(s_coo_sparse_mat), pointer :: a
  30   Integer :: m
  31   m = a%get_nrows()
  32
  33 end