gcc-4.9/gcc/testsuite/gfortran.dg/gomp/fixed-1.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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