From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14075 invoked by alias); 20 Aug 2007 16:47:04 -0000 Received: (qmail 13105 invoked by uid 48); 20 Aug 2007 16:46:51 -0000 Date: Mon, 20 Aug 2007 16:47:00 -0000 Message-ID: <20070820164651.13104.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/33097] Function decl trees without proper argument list In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "asl at math dot spbu dot ru" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2007-08/txt/msg01408.txt.bz2 ------- Comment #4 from asl at math dot spbu dot ru 2007-08-20 16:46 ------- Ooops, attached patch is not complete. I also need: diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -1027,7 +1027,7 @@ gfc_get_nodesc_array_type (tree etype, gfc_array_spec * as, int packed) GFC_TYPE_ARRAY_STRIDE (type, n) = tmp; expr = as->lower[n]; - if (expr->expr_type == EXPR_CONSTANT) + if (expr && expr->expr_type == EXPR_CONSTANT) { tmp = gfc_conv_mpz_to_tree (expr->value.integer, gfc_index_integer_kind); -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33097