From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <arjen.markus895@gmail.com>
Received: from mail-oi1-x229.google.com (mail-oi1-x229.google.com
 [IPv6:2607:f8b0:4864:20::229])
 by sourceware.org (Postfix) with ESMTPS id CAAA83858D35
 for <fortran@gcc.gnu.org>; Sun, 26 Jul 2020 08:55:18 +0000 (GMT)
DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org CAAA83858D35
Received: by mail-oi1-x229.google.com with SMTP id q4so98654oia.1
 for <fortran@gcc.gnu.org>; Sun, 26 Jul 2020 01:55:18 -0700 (PDT)
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20161025;
 h=x-gm-message-state:mime-version:references:in-reply-to:from:date
 :message-id:subject:to:cc:content-transfer-encoding;
 bh=FZmfkZOoTfcUFYj3eCv8oaPmltWIsTkolddwQlVyNIU=;
 b=oeTeKgmCTgyk9eljfQOST69Oj75ENcFNrGW4i/nVX5sGie68TL+8Glm5FRS/ps/Dku
 yRUAAzfm3cmoDQbwtHKZzbpZNJPcbPaLJnbRyVJzRAfUPXPszLrK42PJC4rwCaazTPSl
 x5h/pcDjGWDhEuUEBO09jdiVESgbkEUnzM0q/arRUiZH6E64lA4hsh8hOU2qR3QLqCT7
 sYDz0FX8cF1+pB63wo8X9MsRxt+AakvHqVH3wqELlMBuNOLvQ/JjjExPAXzmRWDmRWdo
 +apLnGbLMi93wtYUCacCqsHXUI4OIjkQahM1hpen8mGqW4zGsXmIpQncAZsSdHIpHAJD
 vCkw==
X-Gm-Message-State: AOAM533Zuar32MUeWT5SLxi6IHlrtVo3mhBzUM1sKx0m/Y0PL15rXTuW
 X81kBY/lqQG1uHFOZ6du9Q2G2DO7NfX+/t7da6E=
X-Google-Smtp-Source: ABdhPJyWFOC2AJGj7LqumcBFTwhKAKAcIbLsjyIIlTWfSYdJP2Q8QsafmnKg/vi4mBU1tgP/DGW4o2bBd3m6J5IVrm0=
X-Received: by 2002:aca:ac01:: with SMTP id v1mr13637254oie.22.1595753718184; 
 Sun, 26 Jul 2020 01:55:18 -0700 (PDT)
MIME-Version: 1.0
References: <CACR8rveH-55a4AmEk=wdZaTUWaOTMU0FROFvBz9ENH+sxpvhpg@mail.gmail.com>
In-Reply-To: <CACR8rveH-55a4AmEk=wdZaTUWaOTMU0FROFvBz9ENH+sxpvhpg@mail.gmail.com>
From: Arjen Markus <arjen.markus895@gmail.com>
Date: Sun, 26 Jul 2020 10:55:07 +0200
Message-ID: <CAMCbSMqciS50bipeBj6KfQddkva=USbtRw-FZmuU_DX683Rhsw@mail.gmail.com>
Subject: Re:
To: Damian Rouson <damian@sourceryinstitute.org>
Cc: gfortran <fortran@gcc.gnu.org>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Spam-Status: No, score=-1.7 required=5.0 tests=BAYES_00, DKIM_SIGNED,
 DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_ENVFROM_END_DIGIT,
 FREEMAIL_FROM, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS,
 TXREP autolearn=ham autolearn_force=no version=3.4.2
X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on
 server2.sourceware.org
X-BeenThere: fortran@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Fortran mailing list <fortran.gcc.gnu.org>
List-Unsubscribe: <http://gcc.gnu.org/mailman/options/fortran>,
 <mailto:fortran-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/fortran/>
List-Help: <mailto:fortran-request@gcc.gnu.org?subject=help>
List-Subscribe: <http://gcc.gnu.org/mailman/listinfo/fortran>,
 <mailto:fortran-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Sun, 26 Jul 2020 08:55:20 -0000

I tried this with Intel Fortran and that accepts the code as well.
Variations in the code do not resolve the problem (different basic
type for arg, using dimension(:), without the nopass attribute).

I suggest you create a PR for this.

Regards,

Arjen

Op zo 26 jul. 2020 om 06:50 schreef Damian Rouson
<damian@sourceryinstitute.org>:
>
> I believe the gfortran error message below is incorrect.  Gfotran 8, 9 an=
d
> 10 give the same message.  The code below compiles cleanly with the NAG
> Fortran compiler.
>
> Damian
>
> =C2=B1 cat shape-mismatch.f90
> module foobar
>   type foo
>   contains
>     procedure, nopass :: bar
>   end type
>   interface
>     module subroutine bar(arg)
>       character(len=3D*) arg(:)
>     end subroutine
>   end interface
> contains
>   module procedure bar
>   end procedure
> end module
>
> =C2=B1 gfortran -c shape-mismatch.f90
> shape-mismatch.f90:12:22:
>
>    12 |   module procedure bar
>       |                      1
> Error: Shape mismatch in argument 'arg' at (1)
>
> =C2=B1 gfortran --version
> GNU Fortran (GCC) 10.1.0