blob: 5b0c212cb7de182555242310fb939931df0f98cd [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fcheck=pointer" }
!
! PR 45438: [4.6 Regression] [OOP] ICE with -fcheck=pointer
!
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
module base_mat_mod
implicit none
type :: base_sparse_mat
contains
procedure :: get_fmt
end type
contains
function get_fmt(a) result(res)
class(base_sparse_mat), intent(in) :: a
character(len=5) :: res
res = 'NULL'
end function
subroutine errlog(name)
character(len=*) :: name
end subroutine
subroutine test (a)
class(base_sparse_mat), intent(in) :: a
call errlog(a%get_fmt())
end subroutine
end module