blob: 39d6c1ef777d3ce83dfb440916211fee4def1c7c [file] [log] [blame]
! { dg-do compile }
!
! PR 78300: [OOP] Failure to compile a F03 code with an optional dummy procedure argument
!
! Contributed by DIL <liakhdi@ornl.gov>
implicit none
type gfc_cont_elem_t
end type
contains
function gfc_copy_i() result(clone)
class(gfc_cont_elem_t), pointer:: clone
end
subroutine ContElemConstruct(copy_constr_func)
procedure(gfc_copy_i) :: copy_constr_func
end
end