| ! { dg-do compile } | |
| ! Tests the fix for 20861, in which internal procedures were permitted to | |
| ! be dummy arguments. | |
| ! | |
| ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
| ! | |
| CALL DD(TT) ! { dg-error "is not allowed as an actual argument" } | |
| CONTAINS | |
| SUBROUTINE DD(F) | |
| INTERFACE | |
| SUBROUTINE F(X) | |
| REAL :: X | |
| END SUBROUTINE F | |
| END INTERFACE | |
| END SUBROUTINE DD | |
| SUBROUTINE TT(X) | |
| REAL :: X | |
| END SUBROUTINE | |
| END |