[Bug fortran/111618] New: ICE in associate construction

[Bug fortran/111618] New: ICE in associate construction

[antoine.lemoine@bordeaux-inp.fr]

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

            Bug ID: 111618
           Summary: ICE in associate construction
           Product: gcc
           Version: 13.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: antoine.lemoine@bordeaux-inp.fr
  Target Milestone: ---

An ICE occurs with this code:

program prog
   implicit none
   type foo
      double precision, dimension(3) :: long_a
      double precision, dimension(3) :: long_b
   end type
   type(foo) :: the_foo
   double precision :: d
   associate(a => the_foo%long_a, b => the_foo%long_b)
      a = 2d0
      b = 1d0
      d = hypot(b(1), b(2)) ! No ICE without this line.
      b = a - b
   end associate
end program

No ICE when writing 'b = a - b(:)' or commenting out 'd = hypot(b(1), b(2))'.

[Bug fortran/111618] ICE in associate construction

[antoine.lemoine@bordeaux-inp.fr]

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

--- Comment #1 from Antoine Lemoine <antoine.lemoine@bordeaux-inp.fr> ---
Error message using gfortran 13.2 on Compiler Explorer:

f951: internal compiler error: Segmentation fault
0x1bec57e internal_error(char const*, ...)
        ???:0
0x7d4c85 gfc_expression_rank(gfc_expr*)
        ???:0
0x7d4e62 gfc_op_rank_conformable(gfc_expr*, gfc_expr*)
        ???:0
0x79a447 gfc_match_expr(gfc_expr**)
        ???:0
0x790f48 gfc_match(char const*, ...)
        ???:0
0x792f01 gfc_match_assignment()
        ???:0
0x7c7795 gfc_parse_file()
        ???:0

Looks like a duplicate of pr109948.

[Bug fortran/111618] ICE in associate construction

[anlauf at gcc dot gnu.org]

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         Resolution|---                         |DUPLICATE
             Status|UNCONFIRMED                 |RESOLVED

--- Comment #2 from anlauf at gcc dot gnu.org ---
(In reply to Antoine Lemoine from comment #1)
> Error message using gfortran 13.2 on Compiler Explorer:
> 
> f951: internal compiler error: Segmentation fault
> 0x1bec57e internal_error(char const*, ...)
> 	???:0
> 0x7d4c85 gfc_expression_rank(gfc_expr*)
> 	???:0
> 0x7d4e62 gfc_op_rank_conformable(gfc_expr*, gfc_expr*)
> 	???:0
> 0x79a447 gfc_match_expr(gfc_expr**)
> 	???:0
> 0x790f48 gfc_match(char const*, ...)
> 	???:0
> 0x792f01 gfc_match_assignment()
> 	???:0
> 0x7c7795 gfc_parse_file()
> 	???:0
> 
> Looks like a duplicate of pr109948.

Indeed a duplicate.

*** This bug has been marked as a duplicate of bug 109948 ***