[Bug fortran/120505] [OpenMP] Fortran deep mapping of alloc comp + component mapping like 'map(var%arr(1)%alloc)' in target (enter/exit) data

[parras at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=120505

--- Comment #7 from Paul-Antoine Arras <parras at gcc dot gnu.org> ---
(In reply to Thomas Schwinge from comment #5)
> For non-'-m64' testing, I'm seeing:
> 
>     +PASS: gfortran.dg/gomp/map-subarray-4.f90   -O  (test for excess errors)
>     +FAIL: gfortran.dg/gomp/map-subarray-4.f90   -O   scan-tree-dump gimple
> " map\\(struct_unord:MEM <struct t\\[0:\\]> \\[\\(struct t\\[0:\\]
> \\*\\)_[0-9]+\\] \\[len: 2\\]\\) map\\(to:MEM <struct t\\[0:\\]>
> \\[\\(struct t\\[0:\\] \\*\\)_[0-9]+\\]\\[_[0-9]+\\]\\.den1 \\[pointer set,
> len: 88\\]\\) map\\(to:MEM <struct t\\[0:\\]> \\[\\(struct t\\[0:\\]
> \\*\\)_[0-9]+\\]\\[_[0-9]+\\]\\.den2 \\[pointer set, len: 88\\]\\) "
>     +FAIL: gfortran.dg/gomp/map-subarray-4.f90   -O   scan-tree-dump gimple
> " map\\(release:MEM <struct t\\[0:\\]> \\[\\(struct t\\[0:\\]
> \\*\\)_[0-9]+\\]\\[_[0-9]+\\]\\.den1 \\[pointer set, len: 88\\]\\)
> map\\(release:MEM <struct t\\[0:\\]> \\[\\(struct t\\[0:\\]
> \\*\\)_[0-9]+\\]\\[_[0-9]+\\]\\.den2 \\[pointer set, len: 88\\]\\) "
> 
> For non-offloading testing, I'm seeing:
> 
>     +PASS: libgomp.fortran/map-subarray-16.f90   -O0  (test for excess
> errors)
>     +FAIL: libgomp.fortran/map-subarray-16.f90   -O0  execution test
>     [Etc.]

I believe the commit listed above fixes both issues. Let me know if I missed
something.