> 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 }
>
> block data
> implicit none
> integer :: int2
> real :: flt2
> common /c_block_2/ int2, flt2
> !$OMP THREADPRIVATE(/c_block_2/)
> data int2, flt2 /2, 2.2/
> end block data
>
> testcase in gfortran.dg/gomp/ be sufficient here?
That would suffice and is the first testcase I added to PR81841. It was
suggested I could add runtime tests as well, so I tried.
Dirk
