fortran/1636: Format strings with identical numbers cause assembler error

[Toon Moene]

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)