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