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.1.f90] - Blame information for rev 816

Details | Compare with Previous | View Log


! { dg-do compile }
! { dg-require-effective-target tls }
 
      SUBROUTINE INIT(A,B)
      REAL A, B
        COMMON /XY/ X,Y
!$OMP THREADPRIVATE (/XY/)
!$OMP SINGLE
          READ (11) A,B,X,Y
!$OMP END SINGLE COPYPRIVATE (A,B,/XY/)
      END SUBROUTINE INIT

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`! { dg-require-effective-target tls }`
3
4			`SUBROUTINE INIT(A,B)`
5			`REAL A, B`
6			`COMMON /XY/ X,Y`
7			`!$OMP THREADPRIVATE (/XY/)`
8			`!$OMP SINGLE`
9			`READ (11) A,B,X,Y`
10			`!$OMP END SINGLE COPYPRIVATE (A,B,/XY/)`
11			`END SUBROUTINE INIT`

Browse

Tools

Subversion Repositories openrisc

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