Subversion Repositories openrisc

! { dg-do compile }

! Tests fix for PR20886 in which the passing of a generic procedure as

! an actual argument was not detected.

!

! Contributed by Joost VandeVondele  

!

MODULE TEST

INTERFACE CALCULATION

  MODULE PROCEDURE C1,C2

END INTERFACE

CONTAINS

SUBROUTINE C1(r)

 INTEGER :: r

END SUBROUTINE

SUBROUTINE C2(r)

 REAL :: r

END SUBROUTINE

END MODULE TEST

USE TEST

CALL F(CALCULATION) ! { dg-error "GENERIC non-INTRINSIC procedure" }

END

SUBROUTINE F()

END SUBROUTINE