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 25423: Nested WHERE constructs.
|
! PR 25423: Nested WHERE constructs.
|
program nested_where
|
program nested_where
|
|
|
implicit none
|
implicit none
|
integer :: a(4)
|
integer :: a(4)
|
logical :: mask1(4) = (/.TRUE., .TRUE., .FALSE., .FALSE./), &
|
logical :: mask1(4) = (/.TRUE., .TRUE., .FALSE., .FALSE./), &
|
mask2(4) = (/.TRUE., .FALSE., .TRUE., .FALSE./)
|
mask2(4) = (/.TRUE., .FALSE., .TRUE., .FALSE./)
|
|
|
where (mask1)
|
where (mask1)
|
where (mask2)
|
where (mask2)
|
a = 1
|
a = 1
|
elsewhere
|
elsewhere
|
a = 2
|
a = 2
|
end where
|
end where
|
elsewhere
|
elsewhere
|
where (mask2)
|
where (mask2)
|
a = 3
|
a = 3
|
elsewhere
|
elsewhere
|
a = 4
|
a = 4
|
end where
|
end where
|
end where
|
end where
|
|
|
print *, a
|
print *, a
|
|
|
end program nested_where
|
end program nested_where
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.