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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a10.1.f90] - Blame information for rev 308

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 273 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.