From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 30841 invoked by alias); 30 Jun 2011 07:01:52 -0000 Received: (qmail 30833 invoked by uid 22791); 30 Jun 2011 07:01:51 -0000 X-SWARE-Spam-Status: No, hits=-2.7 required=5.0 tests=ALL_TRUSTED,AWL,BAYES_00 X-Spam-Check-By: sourceware.org Received: from localhost (HELO gcc.gnu.org) (127.0.0.1) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Thu, 30 Jun 2011 07:01:37 +0000 From: "jakub at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/49586] Multiple initialization with DATA: Warning and initialization order X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Keywords: diagnostic X-Bugzilla-Severity: normal X-Bugzilla-Who: jakub at gcc dot gnu.org X-Bugzilla-Status: UNCONFIRMED X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Changed-Fields: CC Message-ID: In-Reply-To: References: X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated Content-Type: text/plain; charset="UTF-8" MIME-Version: 1.0 Date: Thu, 30 Jun 2011 07:01:00 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2011-06/txt/msg02936.txt.bz2 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=49586 Jakub Jelinek changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |jakub at gcc dot gnu.org --- Comment #1 from Jakub Jelinek 2011-06-30 07:01:01 UTC --- More complete testcase, which should be adjusted to do runtime checking of the variable content based on what we decide, and add whatever options will be needed to disable the errors when compiling it. block data common /a/ i(5,5) data i /4, 23 * 5, 6/ data i(:,2) /1, 3 * 2, 3/ common /b/ j(5,5) data j(2,:) /1, 3 * 2, 3/ data j /4, 23 * 5, 6/ common /c/ k(5,5) data k(:,2) /1, 3 * 2, 3/ data k /4, 23 * 5, 6/ common /d/ l(5,5) data l /4, 23 * 5, 6/ data l(2,:) /1, 3 * 2, 3/ end block data