1! { dg-do compile }
2!
3! PR 64244: [4.8/4.9/5 Regression] ICE at class.c:236 when using non_overridable
4!
5! Contributed by Ond��ej ��ert��k <ondrej.certik@gmail.com>
6
7module m
8  implicit none
9
10  type :: A
11  contains
12    generic :: f => g
13    procedure, non_overridable :: g
14  end type
15
16contains
17
18  subroutine g(this)
19    class(A), intent(in) :: this
20  end subroutine
21
22end module
23
24
25program test_non_overridable
26  use m, only: A
27  implicit none
28  class(A), allocatable :: h
29  call h%f()
30end
31