URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 273 |
Rev 519 |
! { dg-do compile }
|
! { dg-do compile }
|
SUBROUTINE WORK(K)
|
SUBROUTINE WORK(K)
|
INTEGER k
|
INTEGER k
|
!$OMP ORDERED
|
!$OMP ORDERED
|
WRITE(*,*) K
|
WRITE(*,*) K
|
!$OMP END ORDERED
|
!$OMP END ORDERED
|
END SUBROUTINE WORK
|
END SUBROUTINE WORK
|
SUBROUTINE SUBA21(LB, UB, STRIDE)
|
SUBROUTINE SUBA21(LB, UB, STRIDE)
|
INTEGER LB, UB, STRIDE
|
INTEGER LB, UB, STRIDE
|
INTEGER I
|
INTEGER I
|
!$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC)
|
!$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC)
|
DO I=LB,UB,STRIDE
|
DO I=LB,UB,STRIDE
|
CALL WORK(I)
|
CALL WORK(I)
|
END DO
|
END DO
|
!$OMP END PARALLEL DO
|
!$OMP END PARALLEL DO
|
END SUBROUTINE SUBA21
|
END SUBROUTINE SUBA21
|
PROGRAM A21
|
PROGRAM A21
|
CALL SUBA21(1,100,5)
|
CALL SUBA21(1,100,5)
|
END PROGRAM A21
|
END PROGRAM A21
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.