[Bug middle-end/38868] r143152 breaks output routines in xplor-nih

[howarth at nitro dot med dot uc dot edu]

------- 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', ' ' <repeats 44 times>, '|'
(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