1C PR fortran/24493
2C { dg-do compile }
3C { dg-require-effective-target tls }
4      INTEGER I, J, K, L, M
5C$OMP THREADPRIVATE(I)
6C SOME COMMENT
7      SAVE I ! ANOTHER COMMENT
8C$OMP THREADPRIVATE
9C$OMP+(J) ! OMP DIRECTIVE COMMENT
10* NORMAL COMMENT
11c$OMP THREAD! COMMENT
12C$OMP&PRIVATE! COMMENT
13*$OMP+    (K)
14C$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
23