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

["dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #19 from dominiq at lps dot ens dot fr  2009-01-17 12:29 -------
Further reduced test case:

      PROGRAM testcase
      IMPLICIT NONE

      INTEGER NENERT
      PARAMETER (NENERT=62)
      LOGICAL QENER(NENERT)
      CHARACTER*4 ANER(NENERT)
      CHARACTER*80 LINE
      INTEGER NTERMS, J, START, STOP, PUNIT
      PUNIT = 6
      qener = .false.
      qener(5:10) = .true.
      aner = ''
      ANER(5)='BOND'
      ANER(6)='ANGL'
      ANER(7)='DIHE'
      ANER(8)='IMPR'
      ANER(9) ='VDW '
      ANER(10)='ELEC'
      LINE=' '
      LINE(2:2)='|'
      LINE(80:80)='|'
      NTERMS=2
      DO J=1,NENERT
!      IF (QENER(J).AND.ANER(J).NE.'    ') THEN
      IF (QENER(J)) THEN
        IF (NTERMS.GE.4) THEN
          WRITE(PUNIT,'(A80)') LINE
          LINE=' '
          LINE(2:2)='|'
          LINE(80:80)='|'
          NTERMS=0
          write(10,*) LINE
        END IF
        NTERMS=NTERMS+1
        START=(NTERMS-1)*19 +3
        STOP=NTERMS*19+2
        write (10,*) stop, LINE(80:80)
        WRITE(LINE(START:STOP),'(4A)') ' E(',ANER(J),')='
        END IF
      END DO
      IF (NTERMS.GE.1) WRITE(PUNIT,'(A80)') LINE
      END

gives at -O3

 |                                       E(BOND)=           E(ANGL)=            
 | E(DIHE)=           E(IMPR)=           E(VDW )=           E(ELEC)=          
|

If I replace the line 

      IF (QENER(J)) THEN

by the commented one, I get

 |                                       E(BOND)=           E(ANGL)=            
 | E(DIHE)=           E(IMPR)=           E(VDW )=           E(ELEC)=            

The content of fort.10 show that the content of LINE(80:80) is wrong.

One thing I did not realized when writing comment #10, is that I don't build
gcc with graphite on my G5:

Using built-in specs.
Target: powerpc-apple-darwin9
Configured with: ../gcc-4.4-work/configure --prefix=/opt/gcc/gcc4.4w
--mandir=/opt/gcc/gcc4.4w/share/man --infodir=/opt/gcc/gcc4.4w/share/info
--build=powerpc-apple-darwin9
--enable-languages=c,c++,fortran,objc,obj-c++,java --with-gmp=/sw
--with-libiconv-prefix=/usr --with-system-zlib --x-includes=/usr/X11R6/include
--x-libraries=/usr/X11R6/lib
Thread model: posix
gcc version 4.4.0 20090116 (experimental) [trunk revision 143431] (GCC) 

while I have it on i686-apple-darwin9:

Using built-in specs.
Target: i686-apple-darwin9
Configured with: ../gcc-4.4-work/configure --prefix=/opt/gcc/gcc4.4w
--mandir=/opt/gcc/gcc4.4w/share/man --infodir=/opt/gcc/gcc4.4w/share/info
--build=i686-apple-darwin9 --enable-languages=c,c++,fortran,objc,obj-c++,java
--with-gmp=/sw --with-libiconv-prefix=/usr --with-system-zlib
--x-includes=/usr/X11R6/include --x-libraries=/usr/X11R6/lib
--with-cloog=/opt/cloog/build --with-ppl=/opt/ppl/build
Thread model: posix
gcc version 4.4.0 20090116 (experimental) [trunk revision 143431p3] (GCC) 

Somehow I got the impression that graphite is now enabled at -O2, although I
may have misunderstood what I read. Could the correlation of this pr with
graphite be checked? Just in case I cc Sebastian Pop.



-- 

dominiq at lps dot ens dot fr changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |sebpop at gmail dot com


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38868