URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
! { dg-do compile }
|
! { dg-do compile }
|
! Tests the fix for 20861, in which internal procedures were permitted to
|
! Tests the fix for 20861, in which internal procedures were permitted to
|
! be dummy arguments.
|
! be dummy arguments.
|
!
|
!
|
! Contributed by Joost VandeVondele
|
! Contributed by Joost VandeVondele
|
!
|
!
|
CALL DD(TT) ! { dg-error "is not allowed as an actual argument" }
|
CALL DD(TT) ! { dg-error "is not allowed as an actual argument" }
|
CONTAINS
|
CONTAINS
|
SUBROUTINE DD(F)
|
SUBROUTINE DD(F)
|
INTERFACE
|
INTERFACE
|
SUBROUTINE F(X)
|
SUBROUTINE F(X)
|
REAL :: X
|
REAL :: X
|
END SUBROUTINE F
|
END SUBROUTINE F
|
END INTERFACE
|
END INTERFACE
|
END SUBROUTINE DD
|
END SUBROUTINE DD
|
SUBROUTINE TT(X)
|
SUBROUTINE TT(X)
|
REAL :: X
|
REAL :: X
|
END SUBROUTINE
|
END SUBROUTINE
|
END
|
END
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.