[Bug fortran/99254] ICE in select_rank_set_tmp, at fortran/match.c:6568

[gscfq--- via Gcc-bugs]

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

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

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

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

Following z3 is correct, z2 is detected :

$ cat z2.f90
subroutine s
   class(*), allocatable :: x(..)
   select rank (y => x)
   rank (1)
   end select
end

$ cat z3.f90
subroutine s(x)
   class(*) :: x(..)
   select rank (y => x)
   rank (1)
   end select
end


$ gfortran-11-20210221 -c z3.f90
$ gfortran-11-20210221 -c z2.f90
z2.f90:2:33:

    2 |    class(*), allocatable :: x(..)
      |                                 1
Error: Assumed-rank array at (1) must be a dummy argument