URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 273 |
Rev 338 |
! { dg-do run }
|
! { dg-do run }
|
SUBROUTINE WORK1()
|
SUBROUTINE WORK1()
|
END SUBROUTINE WORK1
|
END SUBROUTINE WORK1
|
SUBROUTINE WORK2()
|
SUBROUTINE WORK2()
|
END SUBROUTINE WORK2
|
END SUBROUTINE WORK2
|
PROGRAM A10
|
PROGRAM A10
|
!$OMP PARALLEL
|
!$OMP PARALLEL
|
!$OMP SINGLE
|
!$OMP SINGLE
|
print *, "Beginning work1."
|
print *, "Beginning work1."
|
!$OMP END SINGLE
|
!$OMP END SINGLE
|
CALL WORK1()
|
CALL WORK1()
|
!$OMP SINGLE
|
!$OMP SINGLE
|
print *, "Finishing work1."
|
print *, "Finishing work1."
|
!$OMP END SINGLE
|
!$OMP END SINGLE
|
!$OMP SINGLE
|
!$OMP SINGLE
|
print *, "Finished work1 and beginning work2."
|
print *, "Finished work1 and beginning work2."
|
!$OMP END SINGLE NOWAIT
|
!$OMP END SINGLE NOWAIT
|
CALL WORK2()
|
CALL WORK2()
|
!$OMP END PARALLEL
|
!$OMP END PARALLEL
|
END PROGRAM A10
|
END PROGRAM A10
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.