1! PR fortran/99514
2!
3! NTest in DATA is implicitly SAVE, unless in COMMON
4! Was failing before as the implicit SAVE was not
5! honoured by the threadprivate check.
6!
7
8program main
9  DATA NTest /1/
10  !$omp threadprivate(Ntest)
11end program main
12