This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
Re: fortran/1636: Format strings with identical numbers cause assembler error
- To: peter at snake dot iap dot physik dot tu-darmstadt dot de
- Subject: Re: fortran/1636: Format strings with identical numbers cause assembler error
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- Date: Sat, 13 Jan 2001 14:41:29 +0100
- CC: gcc-gnats at gcc dot gnu dot org, gcc-bugs at gcc dot gnu dot org
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
- References: <200101122100.WAA17926@snake.iap.physik.tu-darmstadt.de>
peter@snake.iap.physik.tu-darmstadt.de wrote:
> program ray
> implicit none
> real*8 Y(2)
>
> y(1) = 1.d0
> y(2) = 2.d0
>
> WRITE (6,99) Y(1),Y(2)
> 99 FORMAT(1X,'X = XEND Y =',2E18.10)
> call solout
> STOP
> END
>
> SUBROUTINE solout
> implicit none
> real*8 Y(2),X
> integer N
>
> X=6.d0
> y(1) = 3.d0
> y(2) = 4.d0
> N = 1
> WRITE (6,99) X,Y(1),Y(2),N
>
> 99 FORMAT(1X,'X =',F6.2,' Y =',2E18.10,' N =',I4)
> RETURN
> END
>
> g77 -v -W -Wall taus.f
[ ... ]
> /tmp/cce7yXHq.s:76: Fatal error: Symbol __g77_format_99w already defined.
Yep - definitely a bug in the compiler. In the past such labels were
qualified with .0, .1, .2, etc. but that doesn't happen anymore. I'll
go and look for the culprit ...
Thanks for your bug report,
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
Join GNU Fortran 95: http://g95.sourceforge.net/ (under construction)