https://gcc.gnu.org/bugzilla/show_bug.cgi?id=110623
Bug ID: 110623
Summary: Segfault if type-bound procedure function provided for
an assumed rank class(*) argument
Product: gcc
Version: 14.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: mscfd at gmx dot net
Target Milestone: ---
Created attachment 55519
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=55519&action=edit
testcase
The attached code aborts with a segfault (or some undefined behaviour) in the
line "call p(y%get())". For "call p(x%get())" with x declared as type(t)
instead of class(t), everything seems fine.
This is a variation to bug 100961. I have checked with 13.1 and 14.0 (current
master).
valgrind shows "conditional jump depends on uninitialised value" and "invalid
read" before it aborts.
