1! { dg-do compile }
2! { dg-options "-std=f2003" }
3! Tests the fix for 20861, in which internal procedures were permitted to
4! be dummy arguments.
5!
6! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
7!
8CALL DD(TT) ! { dg-error "Fortran 2008: Internal procedure 'tt' is used as actual argument" }
9CONTAINS
10SUBROUTINE DD(F)
11  INTERFACE
12   SUBROUTINE F(X)
13    REAL :: X
14   END SUBROUTINE F
15  END INTERFACE
16END SUBROUTINE DD
17SUBROUTINE TT(X)
18  REAL :: X
19END SUBROUTINE
20END
21