! { dg-do compile } ! Tests the fix for 20861, in which internal procedures were permitted to ! be dummy arguments. ! ! Contributed by Joost VandeVondele ! 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