From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 90457385627A; Thu, 12 May 2022 12:27:09 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 90457385627A From: "rnhmjoj at eurofusion dot eu" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/105582] New: ICE on procedure pointer assignment inside block Date: Thu, 12 May 2022 12:27:09 +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: og11 (devel/omp/gcc-11) X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: rnhmjoj at eurofusion dot eu 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 X-BeenThere: gcc-bugs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-bugs mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 12 May 2022 12:27:09 -0000 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D105582 Bug ID: 105582 Summary: ICE on procedure pointer assignment inside block Product: gcc Version: og11 (devel/omp/gcc-11) Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: rnhmjoj at eurofusion dot eu Target Milestone: --- Compiling this program: program pointer_block__crash abstract interface subroutine f() end subroutine end interface block procedure(f), pointer :: p p =3D> nop end block contains subroutine nop() end subroutine end program with gfortran results in an internal compiler error, producing this error message: crash.f90:1:28: 1 | program pointer_block__crash | ^ internal compiler error: Segmentation fault 0x1666927 internal_error(char const*, ...) ???:0 0xe9c083 walk_tree_1(tree_node**, tree_node* (*)(tree_node**, int*, voi= d*), void*, hash_set >*, tree_node* (*)(tree_node**, int*, tree_node* (*)(tree_node**, int*, void*), void*, hash_set >*)) ???:0 0x9bd1d6 walk_gimple_op(gimple*, tree_node* (*)(tree_node**, int*, void= *), walk_stmt_info*) ???:0 0x9bd37a 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*) ???:0 0x9bd510 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_nod= e**, int*, void*), walk_stmt_info*) ???:0 0x9bd409 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*) ???:0 0x9bd510 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_nod= e**, int*, void*), walk_stmt_info*) ???:0 0xcb199e lower_nested_functions(tree_node*) ???:0 0x86a856 cgraph_node::analyze() ???:0 0x86da1d symbol_table::finalize_compilation_unit() ???:0 I tested on GCC 9.3.0, 10.3.0, 11.2.0 and all versions result in the same error.=