X-Recipient: archive-cygwin AT delorie DOT com
DomainKey-Signature: a=rsa-sha1; c=nofws; d=sourceware.org; h=list-id
	:list-unsubscribe:list-subscribe:list-archive:list-post
	:list-help:sender:mime-version:references:in-reply-to:from:date
	:message-id:subject:to:content-type; q=dns; s=default; b=u/bl4kC
	MCTKnurKiAWZk7w6JcRY3OefJh3XROr0WSnCaKNkfti3afUNakQwBBNNZvWIk9ru
	4S2WKRm8xo5NNzunEuqL28FfDQhcq93PyFIp2Tx++C61XUWLKfIuBxKN0FBNCvJC
	D0AcqnwnpJSBKwUPoyMLwsn3BAS3bo/Z5E2E=
DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=sourceware.org; h=list-id
	:list-unsubscribe:list-subscribe:list-archive:list-post
	:list-help:sender:mime-version:references:in-reply-to:from:date
	:message-id:subject:to:content-type; s=default; bh=+Jx8zTUQy+RxF
	15T5ivCXKQl88U=; b=WgB0ctBLGHHye56c2d2mfcBS17Y15FaMLNiz2ToijIbb2
	xYEmdwJ+kDNIktCYoVPCeY35hw8uHZRacOG3zeoGfKdoB7PL0JOUyaFrY9SgY/V2
	ED3A+7YcJ5SB06sULw1AsWXnepXaUcbA9ljiDuopgcqcuNHxuTynxUHd0nlceU=
Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Id: <cygwin.cygwin.com>
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com
Authentication-Results: sourceware.org; auth=none
X-Spam-SWARE-Status: No, score=-6.7 required=5.0 tests=BAYES_00,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,GIT_PATCH_1,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 spammy=curiosity, HTo:D*aol.com
X-HELO: mail-io1-f42.google.com
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;        d=gmail.com; s=20161025;        h=mime-version:references:in-reply-to:from:date:message-id:subject:to;        bh=94KNUHx1vSm0NlgokdPjTPmluiepRc70lcc/5vu98k8=;        b=rUy+Dm2kdcKGVfIUCTyj5sGUWv00ZWr0Ijia4jHi5Rk0I5sQwI+AcW9R9qcV3VE1MZ         o27DzbcfZZjFOd585uyCY6FzCGg5IIvK766z3wQ9n/Il51WEsLhwB6GKqKFbxJI8aGmu         y/eTg7HwPM7notlxCAMmgvuyrRlh247daJ1jhhupKnsQw/oyh8kJlN2TgkgNyKboYvqt         fazE6BfCjPCeh/xwibkyI4vGMt6dgo2XUGnn8DcFo9Hlbgi0YkM6M8k6GaCiQxzRQzUW         VimKvdqVCD18JyamLVG7HpEBCe6CdTjsVQjtmIMMJj/Z6CpQPcDONL01tceVbImkvpHc         uD9Q==
MIME-Version: 1.0
References: <vriu4l9tlnmu DOT fsf AT aol DOT com>
In-Reply-To: <vriu4l9tlnmu.fsf@aol.com>
From: Arjen Markus <arjen DOT markus895 AT gmail DOT com>
Date: Mon, 28 Jan 2019 07:58:04 +0100
Message-ID: <CAMCbSMoAaiHJ4DeMttVb+0b9hujR4COhQK2o+8PHQqvZf3wODw@mail.gmail.com>
Subject: Re: gfortran problems with equivalence statement in module
To: airplanemath <airplanemath AT aol DOT com>, Andrey Repin <cygwin AT cygwin DOT com>
Content-Type: text/plain; charset="UTF-8"
X-IsSubscribed: yes

out of curiosity I experimented a bit with this source code. It can be
simplified to:

module test
  integer, parameter :: rb = kind(1.0)
  real(kind=rb) :: ka(5,13,10)   , absa(65,10)
  equivalence (ka(1,1,1),absa(1,1))
end module test

If I make it a program, rather than a module, the compiler happily
produces a .o file. So it is not due to the non-one starting index in
the array kb

Regards,

Arjen

Op ma 28 jan. 2019 om 00:00 schreef airplanemath via cygwin <cygwin AT cygwin DOT com>:
>
> Compiling the attached fortran code with "gfortran -c test_compile.f90"
> fails, citing an internal compiler error due to a segmentation fault.
> Downgrading gcc-fortran to 7.3.0-3 or using the Mingw-w64 7.4.0-0
> gfortran allows the compilation to complete and produce a .o file.
> Running as "${host}-gfortran -c -wrapper gdb,--args test_compile.f90"
> seems to indicate that the Mingw-w64 compiler does not have the line
> that causes the problem in the cygwin-native compiler:
>
> attributes = gfc_add_attributes_to_decl (com->head->attr, NULL_TREE);
>
> where *com is initialized to zeros (so that com->head is NULL), and
> there does not seem to be any place between the creation of *com and
> the call above that would set com->head to something other than NULL.
>
> I seem to be missing something here, but I have no idea what that might
> be.  Can someone point out to me what it is I've missed?
>
> Thanks for any help you may be able to give, and for providing cygwin
> all these years.
>
>
> --
> Problem reports:       http://cygwin.com/problems.html
> FAQ:                   http://cygwin.com/faq/
> Documentation:         http://cygwin.com/docs.html
> Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple

--
Problem reports:       http://cygwin.com/problems.html
FAQ:                   http://cygwin.com/faq/
Documentation:         http://cygwin.com/docs.html
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple