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