Message-Id: <199903130744.IAA00793@a115.lambo.student.liu.se>
Date: Sat, 13 Mar 1999 08:44:55 +0100 (EET)
From: pawsa AT ifm DOT liu DOT se
Subject: Bug report
To: pgcc AT delorie DOT com
MIME-Version: 1.0
Content-Type: TEXT/plain; CHARSET=US-ASCII
Reply-To: pgcc AT delorie DOT com

Hi,

the following 6-lines program
      SUBROUTINE DBLGRP
      DIMENSION JAPINT(3)
          WRITE(LUPRI,'(3X,I2,2X,A1,A1,A,2X,I2)')
     &         ((5-II),'(',CHAR(ICHAR('W')+II),')  -->',JAPINT(II),
     &          II=1,3)
      END

causes following crash of 
Reading specs from /usr/lib/gcc-lib/i586-linux/pgcc-2.91.57/specs
gcc version pgcc-2.91.57 19980901 (egcs-1.1 release)

The crash message is:

g77  -c buggy.F 
../../../gcc/f/com.c:11030: failed assertion `ffeinfo_kindtype (ffebld_info (expr)) == FFEINFO_kindtypeCHARACTER1'
g77: Internal compiler error: program f771 got fatal signal 6

The preprocessed program is:
# 1 "buggy.F"
      SUBROUTINE DBLGRP
      DIMENSION JAPINT(3)
          WRITE(LUPRI,'(3X,I2,2X,A1,A1,A,2X,I2)')
     &         ((5-II),'(',CHAR(ICHAR('W')+II),')  -->',JAPINT(II),
     &          II=1,3)
      END

(not many changes, I would say).

Please, ask me (pawsa AT ifm DOT liu DOT se) if you need more details. On the
other hand, I would be glad to hear about new patches (or information,
that is was already fixed in a more recent version that mine).

Pawel
-----
Pawel Salek, pawsa AT ifm DOT liu DOT se WWW: http://www.ifm.liu.se/~pawsa/