2 ! { dg-options "-fcheck=pointer" }
4 ! PR 45438: [4.6 Regression] [OOP] ICE with -fcheck=pointer
6 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
12 type :: base_sparse_mat
19 function get_fmt(a
) result(res
)
20 class(base_sparse_mat
), intent(in
) :: a
21 character(len
=5) :: res
25 subroutine errlog(name
)
26 character(len
=*) :: name
30 class(base_sparse_mat
), intent(in
) :: a
31 call errlog(a
%get_fmt())