[Bug fortran/91864] [9/10 Regression] ICE in gfc_check_do_variable, at fortran/parse.c:4405

[gscfq@t-online.de]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-invalid-code

--- Comment #1 from G. Steinmetz <gscfq@t-online.de> ---

A few more cases :


$ cat z2.f90
program p
   integer :: i, x(2)
   read (*,*) (x(i), i%kind=1,2)
end


$ cat z3.f90
program p
   integer :: i, x(2)
   read (*,*) (x(i), x(i)%kind=1,2)
end


$ cat z4.f90
program p
   integer :: i, x(2)
   print *, (x(i), i%kind=1,2)
end
# Error: Expected a right parenthesis in expression at (1)



$ cat z5.f90
program p
   integer, allocatable :: x(:)
   integer :: stat
   allocate (x(3), stat=stat%kind)
end


$ cat z6.f90
program p
   integer, allocatable :: x(:)
   integer :: stat
   allocate (x(3), stat%kind=stat)
end


$ cat z7.f90
program p
   integer, allocatable :: x(:)
   integer :: stat
   deallocate (x, stat%kind=stat)
end