From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 037883858D28; Tue, 17 Jan 2023 17:47:58 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 037883858D28 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1673977679; bh=P9NoPaUd+cApMUkzXbmDQAuof/ZmG6ptlZdUyx2aIdo=; h=From:To:Subject:Date:From; b=DDpsFTE8eioqVJPjw+piT75VPuUtiaNh/QHJMLXDSaNxqtD02Lu08DOU+LEY7PlEE Lm70BIKx8MKFOBtVzE6kgBJYD0MklM+b1ngYbmwJY7p31HIfzn0ppcwtbgjPmsfsEF Vfaw44KyDy7Jh1T1ZxC7VKt4Ehkntn6G5NN29yBc= From: "gscfq@t-online.de" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/108435] New: [13 Regression] ICE in as_a, at is-a.h:242 Date: Tue, 17 Jan 2023 17:47:58 +0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: new X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Version: 13.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: gscfq@t-online.de X-Bugzilla-Status: UNCONFIRMED X-Bugzilla-Resolution: X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status bug_severity priority component assigned_to reporter target_milestone Message-ID: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 List-Id: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D108435 Bug ID: 108435 Summary: [13 Regression] ICE in as_a, at is-a.h:242 Product: gcc Version: 13.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: gscfq@t-online.de Target Milestone: --- Started between 20220501 and 20220508 : (gcc configured with --enable-checking=3Dyes) $ cat z1.f90 program p integer :: j contains subroutine s integer :: i !$omp do simd collapse(2) do i =3D 1, 16 do j =3D 1, i end do end do end end $ cat z2.f90 program p contains subroutine s integer :: i, j !$omp do simd collapse(2) do i =3D 1, 16 do j =3D 1, i end do end do end end $ gfortran-13-20230115 -c z2.f90 -fopenmp $ $ gfortran-13-20230115 -c z1.f90 -fopenmp z1.f90:1:9: 1 | program p | ^ internal compiler error: in as_a, at is-a.h:242 0xc3aeba gbind* as_a(gimple*) ../../gcc/is-a.h:242 0xc3aeba declare_vars(tree_node*, gimple*, bool) ../../gcc/gimplify.cc:697 0x1053aa7 convert_nonlocal_omp_clauses ../../gcc/tree-nested.cc:1590 0x10546d2 convert_nonlocal_reference_stmt ../../gcc/tree-nested.cc:1716 0xc34366 walk_gimple_stmt(gimple_stmt_iterator*, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_nod= e**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:608 0xc34580 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:51 0xc34421 walk_gimple_stmt(gimple_stmt_iterator*, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_nod= e**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:635 0xc34580 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:51 0x104c788 walk_body ../../gcc/tree-nested.cc:811 0x1054616 convert_nonlocal_reference_stmt ../../gcc/tree-nested.cc:1752 0xc34366 walk_gimple_stmt(gimple_stmt_iterator*, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_nod= e**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:608 0xc34580 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:51 0xc34421 walk_gimple_stmt(gimple_stmt_iterator*, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_nod= e**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:635 0xc34580 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:51 0xc34421 walk_gimple_stmt(gimple_stmt_iterator*, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_nod= e**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:635 0xc34580 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*), walk_stmt_info*) ../../gcc/gimple-walk.cc:51 0x104c788 walk_body ../../gcc/tree-nested.cc:811 0x104c7d8 walk_function ../../gcc/tree-nested.cc:822 0x104c7d8 walk_all_functions ../../gcc/tree-nested.cc:887 0x10583b4 lower_nested_functions(tree_node*) ../../gcc/tree-nested.cc:3736=