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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.33.2.f90] - Blame information for rev 816

Details | Compare with Previous | View Log


! { dg-do compile }
 
      REAL FUNCTION READ_NEXT()
        REAL, POINTER :: TMP
!$OMP SINGLE
          ALLOCATE (TMP)
!$OMP END SINGLE COPYPRIVATE (TMP) ! copies the pointer only
!$OMP MASTER
          READ (11) TMP
!$OMP END MASTER
!$OMP BARRIER
          READ_NEXT = TMP
!$OMP BARRIER
!$OMP SINGLE
          DEALLOCATE (TMP)
!$OMP END SINGLE NOWAIT
      END FUNCTION READ_NEXT

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2
3			`REAL FUNCTION READ_NEXT()`
4			`REAL, POINTER :: TMP`
5			`!$OMP SINGLE`
6			`ALLOCATE (TMP)`
7			`!$OMP END SINGLE COPYPRIVATE (TMP) ! copies the pointer only`
8			`!$OMP MASTER`
9			`READ (11) TMP`
10			`!$OMP END MASTER`
11			`!$OMP BARRIER`
12			`READ_NEXT = TMP`
13			`!$OMP BARRIER`
14			`!$OMP SINGLE`
15			`DEALLOCATE (TMP)`
16			`!$OMP END SINGLE NOWAIT`
17			`END FUNCTION READ_NEXT`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.33.2.f90] - Blame information for rev 816