[flang-commits] [flang] [flang][OpenMP] Support omx/ompx extension sentinels (PR #218475)

[CHANDRA GHALE via flang-commits]

================
@@ -0,0 +1,28 @@
+! Implementation-defined extension sentinel "ompx" in free source form
+! (OpenMP 5.2, section 3.1.2).  The !$ompx sentinel introduces implementation-
+! defined extension directives and is recognized like the !$omp sentinel.
+
+! RUN: %flang_fc1 -E -fopenmp %s 2>&1 | FileCheck %s --check-prefix=CHECK-E
+! RUN: %flang_fc1 -fopenmp -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK-OMP
+! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK-NO-OMP
+
+subroutine ompx_sub(a, b, c)
+  real :: a, b, c
+  !$ompx parallel &
----------------
chandraghale wrote:

Done. Added an omx_in_free subroutine with CHECK-OMP-NOT: !$OMP asserting the free-form !$omx lines produce no OpenMP directive.

https://github.com/llvm/llvm-project/pull/218475