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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.33.1.f90] - Blame information for rev 316

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


! { dg-do compile }
! { dg-require-effective-target tls_native }
 
      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	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-require-effective-target tls_native }`
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_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.33.1.f90] - Blame information for rev 316