From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
 id CA8D6385B832; Sat, 28 Mar 2020 22:12:59 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org CA8D6385B832
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
 s=default; t=1585433579;
 bh=L2JOlLB5B8iKWmrELE4FX6i+YrodfMo6ijefvXi25eA=;
 h=From:To:Subject:Date:In-Reply-To:References:From;
 b=Wvy+5opjxXtNKlYmWgzzabHnB0P7zkgrh7ZTJo2xtdzdcsmbnX6+bldnsf/x9RJ7X
 CxGZHw5u9f2f7D92FXxXAr4TaHHdxtaHjeP+EnN7jbKbKSLURWoVm7f64qmzQxr2A2
 rq3gXHE3G4ZzBxBoTLcPmtKMQEJAAOa048ctlyQI=
From: "siteg at mathalacarte dot com" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/94377] Won't compile when deallocating a parameterized
 derived type
Date: Sat, 28 Mar 2020 22:12:59 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: 9.2.1
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: siteg at mathalacarte dot com
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-94377-4-KTfg6uLHVQ@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-94377-4@http.gcc.gnu.org/bugzilla/>
References: <bug-94377-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-BeenThere: gcc-bugs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-bugs mailing list <gcc-bugs.gcc.gnu.org>
List-Unsubscribe: <http://gcc.gnu.org/mailman/options/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <http://gcc.gnu.org/pipermail/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-request@gcc.gnu.org?subject=help>
List-Subscribe: <http://gcc.gnu.org/mailman/listinfo/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Sat, 28 Mar 2020 22:12:59 -0000

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D94377

--- Comment #2 from Fred Krogh <siteg at mathalacarte dot com> ---
I'm sorry, I made an error when making up this code from a much bigger one.=
=20
There was a missing ')' at line 8.  I've corrected this in the code below.=
=20
Same kind of error here, but that code compiles on both Intel and NAG accor=
ding
to a friend.

program pdt
  type :: av_t(n)
    integer, len :: n
    integer :: i   real :: c
    real :: u(n)
  end type av_t
  type(av_t(:)), allocatable :: av(:)
  integer :: k2, k3
  k2 =3D 3
  k3 =3D 5
contains
  subroutine al_test(k)
    integer, intent(in) :: k
    integer :: ista
    if (k =3D=3D 1)  then
      allocate ( av_t(k2) :: av(k3), stat=3Dista) ! For this ista not needed
      return
    else
      deallocate(av, stat=3Dista)
    end if
  end subroutine al_test
end program pdt=