URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [generic_actual_arg.f90] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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 <jv244@cam.ac.uk>
!
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
Go to most recent revision | Compare with Previous | Blame | View Log