URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
! { dg-do compile }
|
! { dg-do compile }
|
! { dg-options "-O2 -fdump-tree-original" }
|
! { dg-options "-O2 -fdump-tree-original" }
|
subroutine foo(a,i,j)
|
subroutine foo(a,i,j)
|
integer, dimension (4,4) :: a
|
integer, dimension (4,4) :: a
|
integer :: i
|
integer :: i
|
integer :: j
|
integer :: j
|
|
|
where (a(i,:) .ne. 0)
|
where (a(i,:) .ne. 0)
|
a(j,:) = 1
|
a(j,:) = 1
|
endwhere
|
endwhere
|
end subroutine
|
end subroutine
|
! { dg-final { scan-tree-dump-times "malloc" 0 "original" } }
|
! { dg-final { scan-tree-dump-times "malloc" 0 "original" } }
|
! { dg-final { cleanup-tree-dump "original" } }
|
! { dg-final { cleanup-tree-dump "original" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.