From patchwork Sun May 26 14:04:20 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Thomas Koenig X-Patchwork-Id: 1105558 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Authentication-Results: ozlabs.org; spf=pass (mailfrom) smtp.mailfrom=gcc.gnu.org (client-ip=209.132.180.131; helo=sourceware.org; envelope-from=gcc-patches-return-501680-incoming=patchwork.ozlabs.org@gcc.gnu.org; receiver=) Authentication-Results: ozlabs.org; dmarc=pass (p=quarantine dis=none) header.from=netcologne.de Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b="M3x9dYz8"; dkim=pass (2048-bit key; unprotected) header.d=netcologne.de header.i=@netcologne.de header.b="h0V0VCmh"; dkim-atps=neutral Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 45Bhgg6vWFz9s7h for ; Mon, 27 May 2019 00:04:45 +1000 (AEST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:to :from:subject:message-id:date:mime-version:content-type; q=dns; s=default; b=KJ/pg35SBRKqstE+PS1BCW51dQNvD0HEq3PmEMmPE4ZJtEg5Nh XcGq/h4e0S2BwdW+hiX1VCa9uUxc/KA5b1tZvMFRpelfhbkMb7Lluv9DOJgtP2ns eRGtNxaPxKE5V4LGzjyZdO1k5Pk5TidVejCiCpeFhKhj/N9EWbLSXQC88= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:to :from:subject:message-id:date:mime-version:content-type; s= default; bh=FxHv1SDvDAEPMS2jBQ5N3P2w6m4=; b=M3x9dYz8RsFwram00M7L AL1kNGm1CDGoEcIsPA098dcT7qpMWLmOl00Hc0w03vG6Mg6dYNu2MX/NCojIgShL PlKPDFFAZyx2SKGtmvQxP1WHC1g+nwsdy7eAvUGnQxZN/9IZiB7cUm5RC7R8XLEg snrozwrQcNCNr3iCmZJE3bg= Received: (qmail 83353 invoked by alias); 26 May 2019 14:04:34 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 83338 invoked by uid 89); 26 May 2019 14:04:34 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-12.6 required=5.0 tests=BAYES_00, GIT_PATCH_2, GIT_PATCH_3, RCVD_IN_DNSWL_LOW, SPF_PASS autolearn=ham version=3.3.1 spammy= X-HELO: cc-smtpout3.netcologne.de Received: from cc-smtpout3.netcologne.de (HELO cc-smtpout3.netcologne.de) (89.1.8.213) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sun, 26 May 2019 14:04:32 +0000 Received: from cc-smtpin2.netcologne.de (cc-smtpin2.netcologne.de [89.1.8.202]) by cc-smtpout3.netcologne.de (Postfix) with ESMTP id 55ECD12613; Sun, 26 May 2019 16:04:23 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=netcologne.de; s=nc1116a; t=1558879463; bh=8QHUP8M+3Q5K4LkLFgqRxY/layLgMYHRR5zGtQwluW0=; h=To:From:Subject:Message-ID:Date:From; b=h0V0VCmhWEKjy+BgLqlSzoNtFavnPScYs7gVkDZahls4IXSLC23ShlQNWIN4jMcPk KBBLUWx1huGgRQa/YEFOASLz8gkM0sZW+Fsopu52BwZUpz7l/VdFbHWbvs7k44BIA4 Vm+DAX9b5QgTZGPuvpqp2o/Ccszt4MsXQYWpzBL1oZlQ/smYjuUzlshsgNK6mFlnGQ /vo1xF+U8xArBW7FjJZDgURg1wILSawaBsLKML23jy+oQcggaBEz+XDQSKVJuEveUX kc8TvThgdSjBOb47/fKN2c46/iKZOZNplCXzBk+dwtbmGP2MrS1UCGg50nRsgMHU6K T9iF67E5JaNZg== Received: from localhost (localhost [127.0.0.1]) by cc-smtpin2.netcologne.de (Postfix) with ESMTP id 519A111EF1; Sun, 26 May 2019 16:04:23 +0200 (CEST) Received: from [2001:4dd7:1a25:0:7285:c2ff:fe6c:992d] (helo=cc-smtpin2.netcologne.de) by localhost with ESMTP (eXpurgate 4.6.0) (envelope-from ) id 5cea9ce7-018f-7f0000012729-7f000001b8ec-1 for ; Sun, 26 May 2019 16:04:23 +0200 Received: from [IPv6:2001:4dd7:1a25:0:7285:c2ff:fe6c:992d] (2001-4dd7-1a25-0-7285-c2ff-fe6c-992d.ipv6dyn.netcologne.de [IPv6:2001:4dd7:1a25:0:7285:c2ff:fe6c:992d]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by cc-smtpin2.netcologne.de (Postfix) with ESMTPSA; Sun, 26 May 2019 16:04:20 +0200 (CEST) To: "fortran@gcc.gnu.org" , gcc-patches From: Thomas Koenig Subject: [patch, fortran, committed] Set rank and lower bound for assumed size arguments Message-ID: Date: Sun, 26 May 2019 16:04:20 +0200 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.6.1 MIME-Version: 1.0 Hello world, in the absence of a test case for PR 90539, I'm taking a shotgun approach: Fix something that appears strange in the debug logs and see if this more or less accidentally fixes the problem. If not, at least there is one fewer point to look at. I have committed the attached patch as obvious and simple, r271630. Regards Thomas 2019-05-26 Thomas Koenig PR fortran/90539 * trans-types.c (get_formal_from_actual_arglist): Set rank and lower bound for assumed size arguments. Index: trans-types.c =================================================================== --- trans-types.c (Revision 271376) +++ trans-types.c (Arbeitskopie) @@ -3010,6 +3010,10 @@ get_formal_from_actual_arglist (gfc_symbol *sym, g { s->attr.dimension = 1; s->as = gfc_get_array_spec (); + s->as->rank = 1; + s->as->lower[0] = gfc_get_int_expr (gfc_index_integer_kind, + &a->expr->where, 1); + s->as->upper[0] = NULL; s->as->type = AS_ASSUMED_SIZE; } }