fixed-1.f   [plain text]

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