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

   1 C PR fortran/24493
   2 C { dg-do compile }
   3 C { dg-require-effective-target tls_native }
   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