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