From 3a9caf7883103bc3a80dfc9e4797bb849b3c211c Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Tue, 21 Mar 2023 06:22:37 +0000 Subject: Fortran: Fix regression caused by PR37336 patch [PR109209] 2023-03-21 Paul Thomas gcc/fortran PR fortran/109209 * resolve.cc (generate_component_assignments): Restore the exclusion of allocatable components from the loop. gcc/testsuite/ PR fortran/109209 * gfortran.dg/pr109209.f90: New test. --- gcc/fortran/resolve.cc | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/resolve.cc') diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc index 1d973d1..1a03e45 100644 --- a/gcc/fortran/resolve.cc +++ b/gcc/fortran/resolve.cc @@ -11760,6 +11760,7 @@ generate_component_assignments (gfc_code **code, gfc_namespace *ns) of all kinds and allocatable components. */ if (!gfc_bt_struct (comp1->ts.type) || comp1->attr.pointer + || comp1->attr.allocatable || comp1->attr.proc_pointer_comp || comp1->attr.class_pointer || comp1->attr.proc_pointer) -- cgit v1.1