gcc/testsuite/gfortran.dg/class_result_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 78300: [OOP] Failure to compile a F03 code with an optional dummy procedure argument
   4 !
   5 ! Contributed by DIL <liakhdi@ornl.gov>
   6
   7   implicit none
   8
   9   type gfc_cont_elem_t
  10   end type
  11
  12   contains
  13
  14     function gfc_copy_i() result(clone)
  15       class(gfc_cont_elem_t), pointer:: clone
  16     end
  17
  18     subroutine ContElemConstruct(copy_constr_func)
  19       procedure(gfc_copy_i) :: copy_constr_func
  20     end
  21
  22 end