URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
! One of the tests of the patch for PR30068.
|
! One of the tests of the patch for PR30068.
|
! Taken from the fortran 2003 standard C11.2.
|
! Taken from the fortran 2003 standard C11.2.
|
!
|
!
|
! The interface is invalid although it is unambiguous because the
|
! The interface is invalid although it is unambiguous because the
|
! standard explicitly does not require recursion into the formal
|
! standard explicitly does not require recursion into the formal
|
! arguments of procedures that themselves are interface arguments.
|
! arguments of procedures that themselves are interface arguments.
|
!
|
!
|
module xx
|
module xx
|
INTERFACE BAD9
|
INTERFACE BAD9
|
SUBROUTINE S9A(X)
|
SUBROUTINE S9A(X)
|
REAL :: X
|
REAL :: X
|
END SUBROUTINE S9A
|
END SUBROUTINE S9A
|
SUBROUTINE S9B(X)
|
SUBROUTINE S9B(X)
|
INTERFACE
|
INTERFACE
|
FUNCTION X(A)
|
FUNCTION X(A)
|
REAL :: X,A
|
REAL :: X,A
|
END FUNCTION X
|
END FUNCTION X
|
END INTERFACE
|
END INTERFACE
|
END SUBROUTINE S9B
|
END SUBROUTINE S9B
|
SUBROUTINE S9C(X)
|
SUBROUTINE S9C(X)
|
INTERFACE
|
INTERFACE
|
FUNCTION X(A)
|
FUNCTION X(A)
|
REAL :: X
|
REAL :: X
|
INTEGER :: A
|
INTEGER :: A
|
END FUNCTION X
|
END FUNCTION X
|
END INTERFACE
|
END INTERFACE
|
END SUBROUTINE S9C ! { dg-error "Ambiguous interfaces" }
|
END SUBROUTINE S9C ! { dg-error "Ambiguous interfaces" }
|
END INTERFACE BAD9
|
END INTERFACE BAD9
|
end module xx
|
end module xx
|
|
|
! { dg-final { cleanup-modules "xx" } }
|
! { dg-final { cleanup-modules "xx" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.