gcc/testsuite/gfortran.dg/proc_ptr_comp_50.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 70601: [5/6/7 Regression] [OOP] ICE on procedure pointer component call
   4 !
   5 ! Contributed by zmi <zmi007@gmail.com>
   6
   7 program test
   8   implicit none
   9
  10   type :: concrete_type
  11     procedure (run_concrete_type), pointer :: run
  12   end type
  13
  14   type(concrete_type), allocatable :: concrete
  15
  16   allocate(concrete)
  17   concrete % run => run_concrete_type
  18   call concrete % run()
  19
  20 contains
  21
  22    subroutine run_concrete_type(this)
  23       class(concrete_type) :: this
  24    end subroutine
  25
  26 end