[Patch] OpenMP: Fortran - fix ancestor's requires reverse_offload check

[Tobias Burnus]

The OpenMP requires directive may only be placed in the specification part of
a program unit (except it happens via the USE of a module).

But the target directive ancestor-requires-'reverse_offload' only checked
the current namespace.

OK for mainline?

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-ns-ancestor.diff
Type: text/x-patch
Size: 2989 bytes
Desc: not available
URL: <https://gcc.gnu.org/pipermail/fortran/attachments/20220608/c0e487f5/attachment.bin>