| ! { 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 |