https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102275
Bug ID: 102275
Summary: Assumed rank, unlimited polymorphic pointer gives
incorrect behavious
Product: gcc
Version: 11.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: paal at levold dot net
Target Milestone: ---
Created attachment 51434
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=51434&action=edit
Source code reproducing the issue
Possibly related to bug 100097.
Environment: GCC 11.2.0 Docker image from https://hub.docker.com/_/gcc.
The attached code uses a unlimited polymorphic pointer with assumed rank. When
running it produces the following output:
This is correct:
rank 0
rank 1
T T
ptr0 = 123
ptr1 = 1 2 3
This is NOT correct:
rank 0
rank 0
F T
uptr1 = 123
The latter part is incorrect, it should be:
rank 0
rank 1
T T
uptr0 = 123
uptr1 = 1 2 3
