gcc/testsuite/gfortran.dg/typebound_call_26.f90

   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
   7 module m
   8   implicit none
   9
  10   type :: A
  11   contains
  12     generic :: f => g
  13     procedure, non_overridable :: g
  14   end type
  15
  16 contains
  17
  18   subroutine g(this)
  19     class(A), intent(in) :: this
  20   end subroutine
  21
  22 end module
  23
  24
  25 program test_non_overridable
  26   use m, only: A
  27   implicit none
  28   class(A), allocatable :: h
  29   call h%f()
  30 end