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 }
|
! Arguments to procedures with multiple entry points may be absent, however
|
! Arguments to procedures with multiple entry points may be absent, however
|
! they are not optional, unless explicitly maked as such.
|
! they are not optional, unless explicitly maked as such.
|
subroutine foo(i, a, b)
|
subroutine foo(i, a, b)
|
logical a(2, 2)
|
logical a(2, 2)
|
logical b(1)
|
logical b(1)
|
! Check we don't get an "DIM must not be optional" error
|
! Check we don't get an "DIM must not be optional" error
|
a = any(b, i)
|
a = any(b, i)
|
entry bar()
|
entry bar()
|
end subroutine
|
end subroutine
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.