Valentin Clement 87dfec9dc8 [flang] Retrieve rank before updating the pointer ...

The code is iterating on the rank of the pointer to set the bounds.
If the rank is retrieved after the `pointer = target` it does not
reflect the actual rank of the pointer.

This could happen in code like the following:

```
type t1
  integer :: a
end type

type(t), pointer :: p(:)
class(t), pointer :: q(:,:)
q(0:1,-2:2) => p(10:1:-1)
```

Reviewed By: klausler

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

2022-12-05 18:27:19 +01:00

6.1 KiB

Raw Blame History

View Raw