Valentin Clement 4235bf7a08 [flang] Adapt PointerIsAssociatedWith for empty derived-type ...

When a derived-type as no component, its elem_len will be set to
zero when emboxed. Update the function to let empty derived-type
pointer/target succeed the test.

Example extracted from gfortran test pointer_init_8

```
module m
  type :: c
  end type c
  type, extends(c) :: d
  end type d
  type(c), target :: x
end module

use m
  class(c), pointer :: px => x

  if (.not. associated(px, x))   STOP 1
end
```

Reviewed By: klausler

Differential Revision: https://reviews.llvm.org/D145604

2023-03-08 22:03:59 +01:00

7.9 KiB

Raw Blame History

View Raw