1! { dg-do compile } 2! { dg-require-effective-target tls } 3 4 INTEGER FUNCTION INCREMENT_COUNTER() 5 COMMON/A22_COMMON/COUNTER 6!$OMP THREADPRIVATE(/A22_COMMON/) 7 COUNTER = COUNTER +1 8 INCREMENT_COUNTER = COUNTER 9 RETURN 10 END FUNCTION INCREMENT_COUNTER 11