! { 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