c { dg-do compile }
|
c { dg-do compile }
|
c { dg-options "-std=legacy" }
|
c { dg-options "-std=legacy" }
|
c
|
c
|
* Mailing-List: contact egcs-bugs-help@egcs.cygnus.com; run by ezmlm
|
* Mailing-List: contact egcs-bugs-help@egcs.cygnus.com; run by ezmlm
|
* Precedence: bulk
|
* Precedence: bulk
|
* Sender: owner-egcs-bugs@egcs.cygnus.com
|
* Sender: owner-egcs-bugs@egcs.cygnus.com
|
* From: "Bjorn R. Bjornsson" <brb@halo.hi.is>
|
* From: "Bjorn R. Bjornsson" <brb@halo.hi.is>
|
* Subject: g77 char expr. as arg to subroutine bug
|
* Subject: g77 char expr. as arg to subroutine bug
|
* To: egcs-bugs@egcs.cygnus.com
|
* To: egcs-bugs@egcs.cygnus.com
|
* Date: Tue, 25 May 1999 14:45:56 +0000 (GMT)
|
* Date: Tue, 25 May 1999 14:45:56 +0000 (GMT)
|
* Content-Type: text/plain; charset=US-ASCII
|
* Content-Type: text/plain; charset=US-ASCII
|
* X-UIDL: 06000c94269ed6dfe826493e52a818b9
|
* X-UIDL: 06000c94269ed6dfe826493e52a818b9
|
*
|
*
|
* The following bug is in all snapshots starting
|
* The following bug is in all snapshots starting
|
* from April 18. I have only tested this on Alpha linux,
|
* from April 18. I have only tested this on Alpha linux,
|
* and with FFECOM_FASTER_ARRAY_REFS set to 1.
|
* and with FFECOM_FASTER_ARRAY_REFS set to 1.
|
*
|
*
|
* Run the following through g77:
|
* Run the following through g77:
|
*
|
*
|
subroutine a
|
subroutine a
|
character*2 string1
|
character*2 string1
|
character*2 string2
|
character*2 string2
|
character*4 string3
|
character*4 string3
|
string1 = 's1'
|
string1 = 's1'
|
string2 = 's2'
|
string2 = 's2'
|
c
|
c
|
c the next 2 lines are ok.
|
c the next 2 lines are ok.
|
string3 = (string1 // string2)
|
string3 = (string1 // string2)
|
call b(string1//string2)
|
call b(string1//string2)
|
c
|
c
|
c this line gives gcc/f/com.c:10660: failed assertion `hook'
|
c this line gives gcc/f/com.c:10660: failed assertion `hook'
|
call b((string1//string2))
|
call b((string1//string2))
|
end
|
end
|
*
|
*
|
* the output from:
|
* the output from:
|
*
|
*
|
* /usr/local/egcs-19990418/bin/g77 --verbose -c D.f
|
* /usr/local/egcs-19990418/bin/g77 --verbose -c D.f
|
*
|
*
|
* is:
|
* is:
|
*
|
*
|
* on egcs-2.93.19 19990418 (gcc2 ss-980929 experimental) (from FSF-g77 version 0.5.24-19990418)
|
* on egcs-2.93.19 19990418 (gcc2 ss-980929 experimental) (from FSF-g77 version 0.5.24-19990418)
|
* Reading specs from /usr/local/egcs-19990418/lib/gcc-lib/alphaev56-unknown-linux-gnu/egcs-2.93.19/specs
|
* Reading specs from /usr/local/egcs-19990418/lib/gcc-lib/alphaev56-unknown-linux-gnu/egcs-2.93.19/specs
|
* gcc version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental)
|
* gcc version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental)
|
* /usr/local/egcs-19990418/lib/gcc-lib/alphaev56-unknown-linux-gnu/egcs-2.93.19/f771 D.f -quiet -dumpbase D.f -version -fversion -o /tmp/ccNpaaaa.s
|
* /usr/local/egcs-19990418/lib/gcc-lib/alphaev56-unknown-linux-gnu/egcs-2.93.19/f771 D.f -quiet -dumpbase D.f -version -fversion -o /tmp/ccNpaaaa.s
|
* GNU F77 version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental) (alphaev56-unknown-linux-gnu) compiled by GNU C version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental).
|
* GNU F77 version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental) (alphaev56-unknown-linux-gnu) compiled by GNU C version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental).
|
* GNU Fortran Front End version 0.5.24-19990418
|
* GNU Fortran Front End version 0.5.24-19990418
|
* ../../../egcs-19990418/gcc/f/com.c:10351: failed assertion `hook'
|
* ../../../egcs-19990418/gcc/f/com.c:10351: failed assertion `hook'
|
* g77: Internal compiler error: program f771 got fatal signal 6
|
* g77: Internal compiler error: program f771 got fatal signal 6
|
*
|
*
|
* Yours,
|
* Yours,
|
*
|
*
|
* Bjorn R. Bjornsson
|
* Bjorn R. Bjornsson
|
* brb@halo.hi.is
|
* brb@halo.hi.is
|
|
|