diff options
| author | Valentin Clement <clementval@gmail.com> | 2023-03-08 22:03:35 +0100 |
|---|---|---|
| committer | Valentin Clement <clementval@gmail.com> | 2023-03-08 22:03:59 +0100 |
| commit | 4235bf7a0844bd1679c80f7a9166fbbfb363b5f4 (patch) | |
| tree | 657cf2dbcb549b658ed083fc1921ec1cf4eaf881 /lldb/source/Plugins/ObjectFile/JSON/ObjectFileJSON.cpp | |
| parent | c866855b42eb3e8aa7578aadb26e4431d1d71efd (diff) | |
| download | llvm-4235bf7a0844bd1679c80f7a9166fbbfb363b5f4.zip llvm-4235bf7a0844bd1679c80f7a9166fbbfb363b5f4.tar.gz llvm-4235bf7a0844bd1679c80f7a9166fbbfb363b5f4.tar.bz2 | |
[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
Diffstat (limited to 'lldb/source/Plugins/ObjectFile/JSON/ObjectFileJSON.cpp')
0 files changed, 0 insertions, 0 deletions
