> If you really need a testcase, it would be enough to do something like:
> use omp_lib
> !$omp parallel num_threads(2)
> int2 = omp_get_thread_num ()
> !$omp barrier
> if (int2 != omp_get_thread_num ()) call abort
> !$omp end parallel
> or so to ensure it has the threadprivate property
> This is wrong. Runtime testcases for OpenMP belong into libgomp/testsuite/.
Well, that's a path where I found some Fortran OpenMP stuff, I didn't
look for other places.
> That said, I fail to see why such a large testcase is needed, wouldn't a
> simple
> ! PR fortran/81841
> ! { dg-do compile }
,
Dirk
2017-09-01 dbroemmel
PR fortran/81841
* parse.c (parse_spec): adding ST_OMP_THREADPRIVATE as allowed
statement.
2017-09-01 dbroemmel
PR fortran/81841
* gfortran.dg/gomp/omp_threadprivate3.f90: New testcase.
Index: gcc/fortran/parse.c
