| ! { dg-do compile } | |
| ! | |
| ! PR 41733: Proc-pointer conformance checks: Elemental-proc-ptr => non-elemental-procedure | |
| ! | |
| ! Contributed by James Van Buskirk | |
| implicit none | |
| procedure(my_dcos), pointer :: f ! { dg-error "Procedure pointer 'f' at .1. shall not be elemental" } | |
| f => my_dcos ! { dg-error "Nonintrinsic elemental procedure 'my_dcos' is invalid in procedure pointer assignment" } | |
| contains | |
| real elemental function my_dcos(x) | |
| real, intent(in) :: x | |
| my_dcos = cos(x) | |
| end function | |
| end |