! { dg-do compile } | |
! | |
! PR 64244: [4.8/4.9/5 Regression] ICE at class.c:236 when using non_overridable | |
! | |
! Contributed by Ondřej Čertík <ondrej.certik@gmail.com> | |
module m | |
implicit none | |
type :: A | |
contains | |
generic :: f => g | |
procedure, non_overridable :: g | |
end type | |
contains | |
subroutine g(this) | |
class(A), intent(in) :: this | |
end subroutine | |
end module | |
program test_non_overridable | |
use m, only: A | |
implicit none | |
class(A), allocatable :: h | |
call h%f() | |
end |