From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 15443 invoked by alias); 17 Jan 2009 01:14:06 -0000 Received: (qmail 15410 invoked by uid 48); 17 Jan 2009 01:13:55 -0000 Date: Sat, 17 Jan 2009 01:14:00 -0000 Message-ID: <20090117011355.15409.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug middle-end/38868] r143152 breaks output routines in xplor-nih In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "howarth at nitro dot med dot uc dot edu" 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: 2009-01/txt/msg01903.txt.bz2 ------- Comment #16 from howarth at nitro dot med dot uc dot edu 2009-01-17 01:13 ------- If I use gdb (which doesn't suppress the bug like write statements do), and add break points at... > STOP=NTERMS*19+2 WRITE(LINE(START:STOP),'(4A)') ' E(',ANER(J),')=',ST(1:STLEN) > END IF bracketing the write statement that sets the LINE characters, I get... Starting program: /Users/howarth/testcase3/a.out Breakpoint 1, print2 (qspcl=.TRUE., renrl=()) at print2.f:81 81 WRITE(LINE(START:STOP),'(4A)') ' E(',ANER(J),')=',ST(1:STLEN) (gdb) p LINE $3 = ' | Etotal =-0.012 grad(E)=0.005', ' ' , '|' (gdb) c Continuing. | Etotal =-0.012 grad(E)=0.005 E(BOND)=0.000 E(ANGL)=0.000 | Breakpoint 2, print2 (qspcl=.TRUE., renrl=()) at print2.f:84 84 IF (NTERMS.GE.1) WRITE(PUNIT,'(A80)') LINE (gdb) p LINE $4 = ' | E(DIHE)=0.000 E(IMPR)=0.000 E(VDW )=-0.012 E(ELEC)=0.000 ' with the original 80 character LINE declaration. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38868