URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
! PR 18568
|
! PR 18568
|
! Find pointer-to-array components
|
! Find pointer-to-array components
|
module ints
|
module ints
|
type :: bar
|
type :: bar
|
integer, pointer :: th(:)
|
integer, pointer :: th(:)
|
end type bar
|
end type bar
|
contains
|
contains
|
function foo(b)
|
function foo(b)
|
type(bar), intent(in) :: b
|
type(bar), intent(in) :: b
|
integer :: foo(size(b%th))
|
integer :: foo(size(b%th))
|
foo = 0
|
foo = 0
|
end function foo
|
end function foo
|
end module ints
|
end module ints
|
|
|
program size_test
|
program size_test
|
use ints
|
use ints
|
end program size_test
|
end program size_test
|
|
|
! { dg-final { cleanup-modules "ints" } }
|
! { dg-final { cleanup-modules "ints" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.