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 }
|
! { dg-options "-fdump-tree-original" }
|
! { dg-options "-fdump-tree-original" }
|
!
|
!
|
! PR38033 - size(a) was not stabilized correctly and so the expression was
|
! PR38033 - size(a) was not stabilized correctly and so the expression was
|
! evaluated twice outside the loop and then within the scalarization loops.
|
! evaluated twice outside the loop and then within the scalarization loops.
|
!
|
!
|
! Contributed by Thomas Bruel
|
! Contributed by Thomas Bruel
|
!
|
!
|
program test
|
program test
|
integer, parameter :: n = 100
|
integer, parameter :: n = 100
|
real, pointer :: a(:),temp(:) ! pointer or allocatable have the same effect
|
real, pointer :: a(:),temp(:) ! pointer or allocatable have the same effect
|
allocate(a(n), temp(n))
|
allocate(a(n), temp(n))
|
temp(1:size(a)) = a
|
temp(1:size(a)) = a
|
end program
|
end program
|
! { dg-final { scan-tree-dump-times "MAX_EXPR\[^\n\t\]+ubound\[^\n\t\]+lbound" 1 "original" } }
|
! { dg-final { scan-tree-dump-times "MAX_EXPR\[^\n\t\]+ubound\[^\n\t\]+lbound" 1 "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.