[Bug fortran/81841] [5/6/7/8 Regression] THREADPRIVATE (OpenMP) wrongly rejected in BLOCK DATA

[dibr-bugzilla at daswigwam dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81841

--- Comment #13 from dbroemmel <dibr-bugzilla at daswigwam dot de> ---
Created attachment 42089
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=42089&action=edit
testcase for the fix (runtime checks)

A new testcase that possibly checks runtime behaviour.

The snippet is pretty verbose and not too elegant I guess, but it checks what I
pieced together how BLOCK DATA and THREADPRIVATE might behave. I've tested it
with (older version of) gfortran, xlf, ifort, and pgfortran and none of those
abort.

A more recent version of gfortran fails to compile.

Added as a test for dejagnu (to gfortran.dg/gomp), 7.2.0 fails. A 'fixed'
version of 7.2.0 doesn't fail the test.