From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 15574 invoked by alias); 8 May 2006 13:00:05 -0000 Received: (qmail 15434 invoked by uid 48); 8 May 2006 12:59:52 -0000 Date: Mon, 08 May 2006 13:00:00 -0000 Message-ID: <20060508125952.15433.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/20440] END not as first statement on line breaks in fixed form In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "tobi at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2006-05/txt/msg00764.txt.bz2 List-Id: ------- Comment #5 from tobi at gcc dot gnu dot org 2006-05-08 12:59 ------- Wow. This is actually a bad bug, but after trying some stuff, I believe that it only does bad things when the code is non-standard anyway (lines beginning with ';'). E.g. schluter@pcl247d:~/src/pr/20440> cat t.f program a ; i = j ; end end schluter@pcl247d:~/src/pr/20440> ~/src/gcc/build/gcc/f951 t.f -fdump-parse-tree Namespace: A-H: (REAL 4) I-N: (INTEGER 4) O-Z: (REAL 4) procedure name = MAIN__ symtree: MAIN__ Ambig 0 symbol MAIN__ (UNKNOWN 0)(PROCEDURE UNKNOWN-INTENT PUBLIC UNKNOWN-PROC SUBROUTINE) symtree: a Ambig 0 symbol a (UNKNOWN 0)(PROGRAM UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC) MAIN__ Execution times (seconds) final : 0.00 ( 0%) usr 0.00 ( 0%) sys 0.01 (50%) wall 0 kB ( 0%) ggc TOTAL : 0.01 0.00 0.02 654 kB Extra diagnostic checks enabled; compiler may run slowly. Configure with --disable-checking to disable checks. schluter@pcl247d:~/src/pr/20440> The complete line following the semicolon is skipped. OTOH schluter@pcl247d:~/src/pr/20440> cat t.f program a i = j ; end end schluter@pcl247d:~/src/pr/20440> ~/src/gcc/build/gcc/f951 t.f MAIN__ In file t.f:1 program a 1 In file t.f:3 2 Error: Two main PROGRAMs at (1) and (2) Execution times (seconds) parser : 0.00 ( 0%) usr 0.00 ( 0%) sys 0.01 (50%) wall 105 kB (16%) ggc TOTAL : 0.01 0.00 0.02 655 kB Extra diagnostic checks enabled; compiler may run slowly. Configure with --disable-checking to disable checks. schluter@pcl247d:~/src/pr/20440> yields the correct error -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20440