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
7module base_mat_mod
8
9  type  :: base_sparse_mat
10  contains 
11    procedure, pass(a) :: get_nrows
12  end type base_sparse_mat
13  
14contains
15
16  integer function get_nrows(a)
17    implicit none 
18    class(base_sparse_mat), intent(in) :: a
19  end function get_nrows
20
21end 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
33end
34