| 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 |