https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84135
Richard Biener changed:
What|Removed |Added
Priority|P3 |P4
Target Milestone|---
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84135
--- Comment #3 from David Malcolm ---
Segfault reading through a NULL value for ubound here:
6032 ubound = GFC_TYPE_ARRAY_UBOUND (type, dim);
6033 if (as->upper[dim] && !INTEGER_CST_P (ubound))
Program received signal
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84135
David Malcolm changed:
What|Removed |Added
Keywords||ice-on-invalid-code
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84135
--- Comment #1 from G. Steinmetz ---
These analogous cases compile and work :
$ cat z2.f90
program p
integer :: i
integer :: x(3)[2,*]
data (x(i:i+2:i+1), i=1,2) /1,2,3/
print *, x
end
$ cat z3.f90
program p