Subversion Repositories openrisc

! { 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