Subversion Repositories openrisc

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