OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a10.1.f90] - Blame information for rev 735

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 735 jeremybenn
! { dg-do run }
2
      SUBROUTINE WORK1()
3
      END SUBROUTINE WORK1
4
      SUBROUTINE WORK2()
5
      END SUBROUTINE WORK2
6
      PROGRAM A10
7
!$OMP PARALLEL
8
!$OMP SINGLE
9
        print *, "Beginning work1."
10
!$OMP END SINGLE
11
        CALL WORK1()
12
!$OMP SINGLE
13
        print *, "Finishing work1."
14
!$OMP END SINGLE
15
!$OMP SINGLE
16
        print *, "Finished work1 and beginning work2."
17
!$OMP END SINGLE NOWAIT
18
        CALL WORK2()
19
!$OMP END PARALLEL
20
      END PROGRAM A10

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.