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

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Commenting out that one line in the test case we get a segfault. This is
invalid if accessing unallocated objects.

$ gfc -fcheck=all -Wall 0264_0002.f90 
$ ./a.out 
At line 32 of file 0264_0002.f90
Fortran runtime error: Index '2' of dimension 1 of array 'obj_base%obj' above
upper bound of 0

The patch as is regression tests OK here and looks good.

Reply via email to