[Bug fortran/110691] New: Segmentation fault on valid F2018 code

[Bug fortran/110691] New: Segmentation fault on valid F2018 code

[juergen.reuter at desy dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=110691

            Bug ID: 110691
           Summary: Segmentation fault on valid F2018 code
           Product: gcc
           Version: 14.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: juergen.reuter at desy dot de
  Target Milestone: ---

Created attachment 55557
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=55557&action=edit
Reproducer

The attached code (which I believe to be valid F2018) leads to a segmentation
violation with gfortran at least since version 11. (it also seg faults,
probably with a different root case) in Intel oneAPI 21.9 (2023 v1), but works
with nagfor.
This is the backtrace of the segfault:
Program received signal SIGSEGV, Segmentation fault.
0x000055555555d841 in __qn_containers_MOD_qn_array_copy ()
(gdb) bt
#0  0x000055555555d841 in __qn_containers_MOD_qn_array_copy ()
#1  0x000055555555e3f3 in __qn_containers_MOD_qn_container_grow ()
#2  0x000055555555d2a5 in __qn_containers_MOD_qn_array_append ()
#3  0x0000555555560742 in __qn_containers_uti_MOD_qn_containers_2 ()
#4  0x0000555555563fb0 in __qn_containers_ut_MOD_qn_containers_test ()
#5  0x0000555555563fc6 in MAIN__ ()

The reproducer of ca 1200 lines is attached.

[Bug fortran/110691] Segmentation fault on valid F2018 code

[juergen.reuter at desy dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=110691

--- Comment #1 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 55560
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=55560&action=edit
Shorter reproducer that gives bogus entries.

This shorter reproducer gives (with gfortran 11.3) bogus output, and with
gfortran 14.0 emty output. The expected output would be
[]

* Array of arrays

[[h(0) h(1)]]
[[h(0) h(1)] [h(-1) h(0)]]