From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from troutmask.apl.washington.edu (troutmask.apl.washington.edu [128.95.76.21]) by sourceware.org (Postfix) with ESMTPS id 65D7A3858D20 for ; Sun, 11 Feb 2024 07:02:23 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 65D7A3858D20 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=troutmask.apl.washington.edu Authentication-Results: sourceware.org; spf=none smtp.mailfrom=troutmask.apl.washington.edu ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 65D7A3858D20 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=128.95.76.21 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1707634944; cv=none; b=RS57MTVQaFhFkiZI5P7TOt+nu7bI4eccz99HAcFL3O8QpvtFURw5MtknIX0DqegEDK55UT32Rh3nOL0PTNYqmBSwwXsf02u393+BxJXB5z/aKzOhmMQ3sSAY2vyvjHsfcAFXCgp2R5KQUIEUgGPQtGrBU0FOGQar65GXCQOSwqU= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1707634944; c=relaxed/simple; bh=dFCm2C6QWs3KeVfq7igUFXDHCQdqTSPz05u/7an3PMA=; h=DKIM-Signature:Date:From:To:Subject:Message-ID:MIME-Version; b=r13LJTlrXbOjjwJ4vd1dVa7ZDYekDdInfnEf3bGu9hFKFRcIPe18oc8ZKmFFFJ9K7/RAkqgZbGm1qwnqex31oCtbqCb2ayrkNM8a3GBPEEKAP8lBznY5cleWc4GQnvt9DjNEyqCcRpV6jmsokBctSI0p1roZlV2sgMJ+qHjfg58= ARC-Authentication-Results: i=1; server2.sourceware.org Received: from troutmask.apl.washington.edu (localhost [127.0.0.1]) by troutmask.apl.washington.edu (8.17.1/8.17.1) with ESMTP id 41B72M8m050841 for ; Sat, 10 Feb 2024 23:02:22 -0800 (PST) (envelope-from sgk@troutmask.apl.washington.edu) DKIM-Filter: OpenDKIM Filter v2.10.3 troutmask.apl.washington.edu 41B72M8m050841 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=troutmask.apl.washington.edu; s=troutmask; t=1707634942; bh=dFCm2C6QWs3KeVfq7igUFXDHCQdqTSPz05u/7an3PMA=; h=Date:From:To:Subject:Reply-To:References:In-Reply-To:From; b=me/DlN2TRref9mnht7w5j4iSYgRoQNO208xDp4sMmvKnHUMLEimJ81OCn2Y6sR5vV yJwVesc0/smNdG7ynVVpkh0ifSI6K0v7XOFrQ8/OZQE9Fvp2VE3Ql0ex/uZ6sbHvJe aaaVQYLARx7znkvZDBGHK6U2Ak++clhTxi+Lf1yMZlAG0z90rYmL1MtWkbY5Le00h8 rUTzX9lE1xtEhOrACyVgqlJC0M15VAal7slGsxNetsvvaOqFDo3ZZ6flH4wAnOzIBi ct8eeGTEU+K1fLshSqdqkbtwGyGCkP8gxYcldtUruGowKix1mUs/M9AoWJYPWS/WM8 2dQV2H44wrbuQ== Received: (from sgk@localhost) by troutmask.apl.washington.edu (8.17.1/8.17.1/Submit) id 41B72M2f050840 for fortran@gcc.gnu.org; Sat, 10 Feb 2024 23:02:22 -0800 (PST) (envelope-from sgk) Date: Sat, 10 Feb 2024 23:02:22 -0800 From: Steve Kargl To: fortran@gcc.gnu.org Subject: Re: Need a hint or more likely help Message-ID: Reply-To: sgk@troutmask.apl.washington.edu References: MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline In-Reply-To: X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,DKIM_INVALID,DKIM_SIGNED,KAM_DMARC_STATUS,SPF_HELO_NONE,SPF_NONE,TXREP,T_SCC_BODY_TEXT_LINE autolearn=no autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: On Sat, Feb 10, 2024 at 06:00:42PM -0800, Steve Kargl wrote: > > The problem here is that sym->ts.u.cl->length == NULL. If I change > the conditional to > > if (sym->ts.type == BT_CHARACTER > && sym->ts.u.cl->length > && !INTEGER_CST_P (sym->ts.u.cl->backend_decl)) > > then the option -fdump-tree-original produces > > void bar () > { > integer(kind=8) .s; > struct array01_character(kind=1) s; > > try > { > s.data = 0B; > s.dtype = {.elem_len=(unsigned long) .s, .version=0, .rank=1, .type=6}; > bah ((character(kind=1)[0:][1:.s] * restrict) s.data, .s); > } > Well, that leads to a regression. The goes removes references to an undefined variable, and gives a regression? I tried to artificial set length to 0 (and -1 but -1 is 0) and that leads to even more regressions?? -- Steve