[Bug fortran/122369] [OpenMP] Labels mishandled with METADIRECTIVE (bogus: "label ... not defined")

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

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

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Interestingly and surprisingly, the following does not help, either:

!$omp begin metadirective when(user={condition(.true.)}: target teams  &
!$omp&        distribute parallel do)  
      DO JCHECK = 1, MNMIN
      END DO
!$omp end metadirective
      WRITE(6,366) PCHECK, UCHECK, VCHECK
 366  FORMAT(/, ' Vcheck = ',E12.4,/)
      END PROGRAM

But adding any non-label-using statement after the implicit/explicit end of the
metadirective works.