From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <fortran-return-51231-listarch-fortran=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 71452 invoked by alias); 19 Oct 2018 22:16:15 -0000
Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <fortran.gcc.gnu.org>
List-Subscribe: <mailto:fortran-subscribe@gcc.gnu.org>
List-Post: <mailto:fortran@gcc.gnu.org>
List-Help: <mailto:fortran-help@gcc.gnu.org>, <http://sourceware.org/lists.html#faqs>
Sender: fortran-owner@gcc.gnu.org
Received: (qmail 71142 invoked by uid 89); 19 Oct 2018 22:15:51 -0000
Authentication-Results: sourceware.org; auth=none
X-Spam-SWARE-Status: No, score=1.4 required=5.0 tests=AWL,BAYES_50,KAM_LAZY_DOMAIN_SECURITY,UPPERCASE_50_75 autolearn=no version=3.3.2 spammy=Hx-spam-relays-external:sk:mailhos, H*RU:sk:mailhos, H*r:sk:mailhos, Hx-languages-length:1001
X-HELO: nef2.ens.fr
Received: from nef2.ens.fr (HELO nef2.ens.fr) (129.199.96.40) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 19 Oct 2018 22:15:49 +0000
X-ENS-nef-client: 129.199.120.1
Received: from mailhost.lps.ens.fr (tournesol.lps.ens.fr [129.199.120.1])          by nef2.ens.fr (8.13.6/1.01.28121999) with ESMTP id w9JMFawR045717          ; Sat, 20 Oct 2018 00:15:36 +0200 (CEST)
Received: from localhost (localhost [127.0.0.1])	by mailhost.lps.ens.fr (Postfix) with ESMTP id 1C35B156;	Sat, 20 Oct 2018 00:15:36 +0200 (CEST)
Received: from mailhost.lps.ens.fr ([127.0.0.1])	by localhost (tournesol.lps.ens.fr [127.0.0.1]) (amavisd-new, port 10024)	with ESMTP id TpH3WfhK5rpu; Sat, 20 Oct 2018 00:15:36 +0200 (CEST)
Received: from [192.168.1.11] (log78-1-82-242-47-10.fbx.proxad.net [82.242.47.10])	by mailhost.lps.ens.fr (Postfix) with ESMTPSA id E2257151;	Sat, 20 Oct 2018 00:15:35 +0200 (CEST)
Content-Type: text/plain;	charset=utf-8
Mime-Version: 1.0 (Mac OS X Mail 11.5 \(3445.9.1\))
Subject: Re: [Patc, fortran] PR85603 - ICE with character array substring assignment
From: =?utf-8?Q?Dominique_d=27Humi=C3=A8res?= <dominiq@lps.ens.fr>
In-Reply-To: <A70A52F4-E347-493B-99B0-35006601BD3D@lps.ens.fr>
Date: Fri, 19 Oct 2018 22:16:00 -0000
Cc: gfortran <fortran@gcc.gnu.org>, gcc-patches <gcc-patches@gcc.gnu.org>
Content-Transfer-Encoding: quoted-printable
Message-Id: <4F0C6148-640C-4E64-85F6-6AD6FB59C82C@lps.ens.fr>
References: <A70A52F4-E347-493B-99B0-35006601BD3D@lps.ens.fr>
To: Paul Richard Thomas <paul.richard.thomas@gmail.com>
X-SW-Source: 2018-10/txt/msg00093.txt.bz2

Reduced test

! { dg-do compile }
MODULE TN4
  IMPLICIT NONE
  PRIVATE
  INTEGER,PARAMETER::SH4=3DKIND('a')
  TYPE,PUBLIC::TOP
    CHARACTER(:,KIND=3DSH4),ALLOCATABLE::ROR
    CHARACTER(:,KIND=3DSH4),ALLOCATABLE::VI8
  CONTAINS
    PROCEDURE,NON_OVERRIDABLE::SB=3D>TPX
  END TYPE TOP
CONTAINS
  SUBROUTINE TPX(TP6,PP4,BA3)
    CLASS(TOP),INTENT(INOUT)::TP6
    INTEGER,INTENT(IN)::PP4
    TYPE(TOP),INTENT(OUT)::BA3
    BA3%ROR=3DTP6%ROR(PP4:)
    BA3%VI8=3DTP6%ROR(PP4:)
    TP6%ROR=3DTP6%ROR(:PP4-1)
    TP6%VI8=3DTP6%ROR(:PP4-1)
  END SUBROUTINE TPX
END MODULE TN4
! https://groups.google.com/forum/#!topic/comp.lang.fortran/nV3TlRlVKBc

TIA

Dominique

> Le 19 oct. 2018 =C3=A0 23:39, Dominique d'Humi=C3=A8res <dominiq@lps.ens.=
fr> a =C3=A9crit :
>=20
> Hi Paul,
>=20
> I get a regression with your patch:
>=20
> obfuscated_tn4.f90:300:0:
>=20
>  300 |     TP6%ROR=3DTP6%ROR(:PP4-1)
>      |=20
> internal compiler error: in gfc_trans_deferred_vars, at fortran/trans-dec=
l.c:4754
>=20
>=20
> I=E2=80=99ll try to reduce the test.
>=20
> Dominique
>=20