------- 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
