[Bug fortran/118845] [15 regression] ICE when building lapack-3.12.0 on x86 (compare_parameter, at fortran/interface.cc:2521)

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #7 from anlauf at gcc dot gnu.org ---
(In reply to anlauf from comment #6)
> (In reply to Andrew Pinski from comment #5)
> > Created attachment 60473 [details]
> > Slight more reduced, change the if into just a normal assignment
> 
> This has been reduced to much and is invalid unless SSLECT is declared
> external.

... or an array (suing DIMENSION)

> Better testcase:
> 
> SUBROUTINE SDRVES(  RESULT )
>   external SSLECT
>   CALL SGEES( SSLECT )
>   CALL SGEES( SSLECT )
>   RESULT = SSLECT( 1, 2 )
> END

or:

SUBROUTINE SDRVES(  RESULT )
  DIMENSION SSLECT(3,4)
  CALL SGEES( SSLECT )
  CALL SGEES( SSLECT )
  RESULT = SSLECT( 1, 2 )
END