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 }
|
|
|
double precision :: arr(5, 8)
|
double precision :: arr(5, 8)
|
call bar (arr)
|
call bar (arr)
|
contains
|
contains
|
subroutine foo (arr)
|
subroutine foo (arr)
|
double precision :: arr(:,:)
|
double precision :: arr(:,:)
|
arr(3, 4) = 24
|
arr(3, 4) = 24
|
end subroutine foo
|
end subroutine foo
|
subroutine bar (arr)
|
subroutine bar (arr)
|
double precision :: arr(5,*)
|
double precision :: arr(5,*)
|
call foo (arr) ! { dg-error "cannot be an assumed-size array" }
|
call foo (arr) ! { dg-error "cannot be an assumed-size array" }
|
call foo (arr (:, :8))
|
call foo (arr (:, :8))
|
end subroutine
|
end subroutine
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.