[Bug fortran/121452] [14/15/16 Regression] Bogus 'OpenMP constructs ... may not be nested inside ‘simd’ region' due to compiler-inserted "#pragma omp __structured_block"

[burnus at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Another variant (true regression, other error message):

    4 | !$omp do ordered(2)
      |                   1
  Error: !$OMP DO inner loops must be perfectly nested with ORDERED clause at
(1)

which is a different check / error message but the same cause.

!$omp for ordered(2)
   do i = 1, 5
     do j = 1, 5
       A(i,j) = B(i,j)
20   continue 
10 continue