From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <adelson.oliveira@gmail.com>
Received: from mail-yb1-xb33.google.com (mail-yb1-xb33.google.com
 [IPv6:2607:f8b0:4864:20::b33])
 by sourceware.org (Postfix) with ESMTPS id 3D743385DC14
 for <gcc-help@gcc.gnu.org>; Sat, 23 May 2020 14:44:06 +0000 (GMT)
DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 3D743385DC14
Received: by mail-yb1-xb33.google.com with SMTP id r128so6164506ybc.6
 for <gcc-help@gcc.gnu.org>; Sat, 23 May 2020 07:44:06 -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:from:date:message-id:subject:to;
 bh=w8ELv+M9Yk5Paf9gr/O2qWfuO8s6kZPd8jWSYL6ybhk=;
 b=ZA4HJSih7s0UMfR9UolNRV7p5zlcrWO8jw8ksFBKG/DjsClZ6TErX1X1HQ4c6LBE/L
 3FBRpNB71WL908ZKl7xTP6+frYxKzqxtEk2t94PTTzMVLOOHEe6WRpDmkMnRKSEQGUaR
 kCKPqYkydsKPbwp9DA6YL8nNSO7b8VaLdOHJ5mmz1ao5RJyFKcG4pE6dgngQy9+RNMXt
 99+vlI4XrLuNrlBhGxnYVR07rVSdWlYV8l+1woPMo/bIkyYKFg7Q4RlDB0+9YSwEiHfY
 W91inp5OpUgemhFDNhv/Pr9S69GXVpOHZ9W6Lkyu2ZYwi6KH3u9i5TA6EFczDVuD7vBc
 Vi6w==
X-Gm-Message-State: AOAM532sEybvYMI4ULfGk+zEbU8COyPlcCKZpo6PKLSyRCGV6HQj3iDn
 PGgDMVMBPz2/DrjOMD/gzg5YX3co1sBEuQjt5MCOJOCR3RM=
X-Google-Smtp-Source: ABdhPJwba1lSpcCktdqUPcqvyWMaBFMr5F/3RLe7EbGGy3jQ7+RU9di2j0ElTm39/6q7d2VjmsNXbHx+6w8PDXsXsm4=
X-Received: by 2002:a25:b90a:: with SMTP id x10mr32114105ybj.334.1590245045470; 
 Sat, 23 May 2020 07:44:05 -0700 (PDT)
MIME-Version: 1.0
From: Adelson Oliveira <adelson.oliveira@gmail.com>
Date: Sat, 23 May 2020 11:43:54 -0300
Message-ID: <CAOsmt4V4Qf7QYoSP=HaF+KLWG6WMwPuvzghwYQKOUt2p=rOEdg@mail.gmail.com>
Subject: A gfortran bug on parameterized derived types
To: gcc-help@gcc.gnu.org
X-Spam-Status: No, score=-2.5 required=5.0 tests=BAYES_00, DKIM_SIGNED,
 DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_FROM, HTML_MESSAGE,
 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
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Content-Filtered-By: Mailman/MimeDel 2.1.29
X-BeenThere: gcc-help@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-help mailing list <gcc-help.gcc.gnu.org>
List-Unsubscribe: <http://gcc.gnu.org/mailman/options/gcc-help>,
 <mailto:gcc-help-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-help/>
List-Post: <mailto:gcc-help@gcc.gnu.org>
List-Help: <mailto:gcc-help-request@gcc.gnu.org?subject=help>
List-Subscribe: <http://gcc.gnu.org/mailman/listinfo/gcc-help>,
 <mailto:gcc-help-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Sat, 23 May 2020 14:44:07 -0000

Hi,

I guess this is a bug to be reported.
Essentially, if I change position of the declaration of the variable n, the
error shows up.
The following code (file is teste.f90):

MODULE TESTET
 IMPLICIT NONE
 INTEGER :: n
 TYPE :: Test(n)
   INTEGER, KIND :: n =3D 4
   REAL(n) :: v
 END TYPE Test
 PUBLIC Test
END MODULE TESTET

returns an error if:
$ gfortran -c teste.f90
teste.f90:6:8:

    REAL(n) :: v
        1
Error: Parameter =E2=80=98n=E2=80=99 at (1) has not been declared or is a v=
ariable, which
does not reduce to a constant expression

The error is not issued if I move the declaration of variable n to after
TYPE test specification:

MODULE TESTET
 IMPLICIT NONE
 TYPE :: Test(n)
   INTEGER, KIND :: n =3D 4
   REAL(n) :: v
 END TYPE Test
 INTEGER :: n
 PUBLIC Test
END MODULE TESTET

Thanks & Regards