[flang-commits] [flang] [llvm] [flang][OpenMP]Add support for OpenMP ERROR directive (PR #119582)

[Krzysztof Parzyszek via flang-commits]

================
@@ -4008,6 +4015,13 @@ struct OmpMapClause {
   std::tuple<MODIFIERS(), OmpObjectList, bool> t;
 };
 
+// Ref: [5.2:217-218]
+// message-clause ->
+//    MESSAGE("message-text")
+struct OmpMessageClause {
+  WRAPPER_CLASS_BOILERPLATE(OmpMessageClause, std::string);
----------------
kparzysz wrote:

The message doesn't have to be a string literal.  It needs to be known at compile time only if there is AT clause with COMPILATION as the argument.

Also, we should be able to accept this:
```
character(*), parameter :: s = "haha"
!$omp error at(compilation) message(s)
```

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