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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [fixed-1.f] - Blame information for rev 149

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


C PR fortran/24493
C { dg-do compile }
C { dg-require-effective-target tls }
      INTEGER I, J, K, L, M
C$OMP THREADPRIVATE(I)
C SOME COMMENT
      SAVE I ! ANOTHER COMMENT
C$OMP THREADPRIVATE
C$OMP+(J) ! OMP DIRECTIVE COMMENT
* NORMAL COMMENT
c$OMP THREAD! COMMENT
C$OMP&PRIVATE! COMMENT
*$OMP+    (K)
C$OMP THREADPRIVATE (L ! COMMENT
*$OMP& , M)
      SAVE J, K, L, M
      I = 1
      J = 2
      K = 3
      L = 4
      M = 5
      END

Line No.	Rev	Author	Line
1	149	jeremybenn	`C PR fortran/24493`
2			`C { dg-do compile }`
3			`C { dg-require-effective-target tls }`
4			`INTEGER I, J, K, L, M`
5			`C$OMP THREADPRIVATE(I)`
6			`C SOME COMMENT`
7			`SAVE I ! ANOTHER COMMENT`
8			`C$OMP THREADPRIVATE`
9			`C$OMP+(J) ! OMP DIRECTIVE COMMENT`
10			`* NORMAL COMMENT`
11			`c$OMP THREAD! COMMENT`
12			`C$OMP&PRIVATE! COMMENT`
13			`*$OMP+ (K)`
14			`C$OMP THREADPRIVATE (L ! COMMENT`
15			`*$OMP& , M)`
16			`SAVE J, K, L, M`
17			`I = 1`
18			`J = 2`
19			`K = 3`
20			`L = 4`
21			`M = 5`
22			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [fixed-1.f] - Blame information for rev 149