[Patch] Fortran/OpenMP: Reject non-scalar 'holds' expr in 'omp assume(s)' [PR107424]

[Tobias Burnus]

Rather obvious fix for that ICE.

Comments? If there are none, I will commit it later as obvious.

Tobias
-----------------
Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstraße 201, 80634 München; Gesellschaft mit beschränkter Haftung; Geschäftsführer: Thomas Heurung, Frank Thürauf; Sitz der Gesellschaft: München; Registergericht München, HRB 106955
-------------- next part --------------
A non-text attachment was scrubbed...
Name: fix-assume.diff
Type: text/x-patch
Size: 3237 bytes
Desc: not available
URL: <https://gcc.gnu.org/pipermail/fortran/attachments/20230112/9908885c/attachment.bin>