[Patch][Fortran, OpenMP] Fix allocatable-components check (PR67311)

[Tobias Burnus]

The test case was giving an ICE as it recursively called itself.
Rather obvious fix.

OK for the trunk?

Tobias

-----------------
Mentor Graphics (Deutschland) GmbH, Arnulfstraße 201, 80634 München / Germany
Registergericht München HRB 106955, Geschäftsführer: Thomas Heurung, Alexander Walter
-------------- next part --------------
A non-text attachment was scrubbed...
Name: alloc-check.diff
Type: text/x-patch
Size: 2516 bytes
Desc: not available
URL: <https://gcc.gnu.org/pipermail/gcc-patches/attachments/20200625/4b9ee72a/attachment-0001.bin>