| ! { dg-do compile } | |
| ! Tests fix for PR20886 in which the passing of a generic procedure as | |
| ! an actual argument was not detected. | |
| ! | |
| ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
| ! | |
| MODULE TEST | |
| INTERFACE CALCULATION | |
| MODULE PROCEDURE C1,C2 | |
| END INTERFACE | |
| CONTAINS | |
| SUBROUTINE C1(r) | |
| INTEGER :: r | |
| END SUBROUTINE | |
| SUBROUTINE C2(r) | |
| REAL :: r | |
| END SUBROUTINE | |
| END MODULE TEST | |
| USE TEST | |
| CALL F(CALCULATION) ! { dg-error "GENERIC non-INTRINSIC procedure" } | |
| END | |
| SUBROUTINE F() | |
| END SUBROUTINE |