public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug libf2c/43754] New: g77/gcc version 3.4.0 bug
@ 2010-04-14 22:03 dave dot kachel at noaa dot gov
2010-04-14 22:06 ` [Bug target/43754] " rguenth at gcc dot gnu dot org
2010-04-14 22:07 ` pinskia at gcc dot gnu dot org
0 siblings, 2 replies; 3+ messages in thread
From: dave dot kachel at noaa dot gov @ 2010-04-14 22:03 UTC (permalink / raw)
To: gcc-bugs
exact version of gcc/g77 in this case
minnie{root}154: f77 -v
Reading specs from /usr/local/lib/gcc/i686-apple-darwin8.8.1/3.4.0/specs
Configured with: ../gcc-3.4.0/configure --enable-languages=f77
Thread model: posix
gcc version 3.4.0
command line that triggers the bug
f77 -Dunix -DMacOSX -I. -c symbel.F
compiler output is:
/var/tmp//cccO5t2E.f: In subroutine `symbel':
In file included from /var/tmp//cccO5t2E.f:59:
/var/tmp//cccO5t2E.f:383: internal compiler error: in
instantiate_virtual_regs_lossage, at function.c:3746
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
I ran I then ran: f77 -Dunix -DMacOSX -I. -c symbel.F -save-temps
and it created only one file, symbel.s, included below.
source code and included files follow below
------ symbel.F ------
SUBROUTINE SYMBEL(X,Y,DEGRES,HEIGHT,NCHAR,STRING)
real x,y,degres,height
integer nchar
C**
C** $Id: symbel.tplate.F,v 1.7 2001/11/21 23:04:59 dwd Exp $
C**
C** 30-Aug-90 Had to modify stmt which reads font.list file. on
C** hp9000s300 systems, hpux fortran wasnt reading the implied doloop
C** properly.
C**
C*********************************************************************
C**
C** PLOT+ Scientific Graphics System
C**
C*********************************************************************
C**
C**
C
C CALL SYMBEL(X,Y,DEGRES,HEIGHT,NCHAR,STRING)
C
C THIS SUBROUTINE DRAWS A STRING OF CHARACTERS.
C
C THE VARIOUS PARAMETERS AND THEIR DEFINITIONS ARE LISTED
C BELOW:
C X,Y - COORDINATES OF THE LOWER LEFT-HAND CORNER OF
C THE FIRST CHARACTER IN USER"S UNITS.
C DEGRES - ANGLE AT WHICH THE CHARACTERS ARE TO BE DRAWN
C IN DEGREES RELATIVE TO THE X-AXIS.
C HEIGHT - HEIGHT OF THE CHARACTERS IN INCHES (OR MM).
C NCHAR - NUMBER OF CHARACTERS TO BE DRAWN.
C STRING - ARRAY CONTAINING THE DISPLAY CODES OF THE
C CHARACTERS TO BE DRAWN.
C
#include "fontdef.inc"
C
LOGICAL SYMROT,READIR,PLOT,COLRF
c CHARACTER PLTFIL*80
CHARACTER ICOM*2,ICHR*1,STRING*120
CHARACTER*1 KSUB,KSUPER,KBKSP,KCALL,PENS(16)
real temp,symsin,symcos,xorg,yorg,xref,yref
real charsc,width,slant,symwid
real symsc,xmn,xmx,xy,xx,xsym,ysym,xtrns,ytrns
integer nfnt,ii,id,ifont,nch,jj,i,icode,istat,ix,iy,k
integer ipoint,ilen
INTEGER COLOLD
LOGICAL ASCFNT
C
C
INCLUDE 'pltcom.dat'
C
#if ! defined(MacOSX)
#if defined(unix)
DATA KSUB,KSUPER,KBKSP,KCALL/'_','^','\','@'/
#else
DATA KSUB,KSUPER,KBKSP,KCALL/'_','^','\','@'/
#endif
#endif
DATA PENS/'1','2','3','4','5','6','7','8','9','A',
* 'B','C','D','E','F','G'/
DATA READIR/.FALSE./
#if defined(MacOSX)
ksub = char(95)
ksuper = char(94)
kbksp = char(92)
kcall = char(64)
#endif
C DEFINE THE SCALE FACTOR TO BE THE AMOUNT OF MAGNIFICATION
C REQUIRED TO CONVERT THE CHARACTERS IN THE CHARACTER DEFI-
C NITION TABLE TO THE SIZE SPECIFIED BY THE USER.
COLRF=.FALSE.
IF(.NOT.READIR)then
C READ DIRECTORY
call rddsym(nfnt)
ioff(1)=0
ii=1
id=1
call rdfsym(id,ii)
ifont=1
ascfnt=itype(ifont).eq.-1
readir=.true.
endif
SYMSC = HEIGHT * FACTOR / 21.0
C
C ROTATE THE CHARACTER STRING.
C
IF(DEGRES .NE. 0.0)GO TO 10
C
C RESET THE CHARACTER ROTATION FLAG.
C
SYMROT = .FALSE.
GO TO 20
C
C SET THE CHARACTER ROTATION FLAG.
C
10 SYMROT = .TRUE.
C
C CONVERT THE ROTATION TO RADIANS.
C
TEMP = 0.01745329251994 * DEGRES
C
C COMPUTE THE SINE AND COSINE.
C
SYMSIN = SIN(TEMP)
SYMCOS = COS(TEMP)
C
C SET VECTORS MODE.
C
20 PMODE = VECTOR
C
C START AT THE LOWER LEFT-HAND CORNER OF THE FIRST CHARACTER.
C
IF(NCHAR .EQ. 0)RETURN
if(mapproj)then
xtemp=xtrns(x,y)*xscale
ytemp=ytrns(x,y)*yscale
else
XTEMP = X * XSCALE
YTEMP = Y * YSCALE
endif
PENF = .FALSE.
PLOT=NCHAR.GT.0
IF(PLOT)CALL XYZPLT
C
C INITIALIZE CONTROL VARIABLES.
C
XORG = XTEMP
YORG = YTEMP
XREF = 0.0
YREF = 0.0
CHARSC = 1.0
WIDTH = 0.0
SLANT = 0.0
IFONT = 1
ASCFNT=ITYPE(1).EQ.-1
SYMWID=0.0
NCH=IABS(NCHAR)
C
C DRAW THE CHARACTERS IN THE STRING ONE BY ONE.
C
JJ=0
DO 170 I=1,NCH
JJ=JJ+1
IF(JJ.GT.NCH)GOTO 180
ICHR = STRING(JJ:JJ)
C
C CHECK FOR A CONTROL CHARACTER.
C
IF(ICHAR(ICHR) .EQ.27)THEN
ASCFNT=.FALSE.
GOTO 170
ENDIF
IF(ICHAR(ICHR) .EQ. 0)GOTO 180
#if defined(unix)
IF(.NOT.ASCFNT.AND.(ICHR.EQ.'@'.OR.
* (ICHR.GE.'\\'.AND.ICHR.LE.'_')))GOTO 80
#else
IF(.NOT.ASCFNT.AND.(ICHR.EQ.'@'.OR.
* (ICHR.GE.'\'.AND.ICHR.LE.'_')))GOTO 80
#endif
C
C CALCULATE POINTER
C
IF(ITYPE(IFONT).LE.0)THEN
C CHARACTER FONT
ICODE = ASCII(ICHAR(ICHR),IFONT)
ELSE
C SYMBOL FONT
ICOM = STRING(JJ:JJ+1)
JJ=JJ+1
READ(ICOM,999,IOSTAT=ISTAT)II
999 FORMAT(I2)
IF(ISTAT.EQ.0)THEN
ICODE = ASCII(II,IFONT)
ELSE
ICODE = 1
ENDIF
ENDIF
IPOINT = ICODE+IOFF(IFONT)
XMN=SX(IPOINT)
XMX=SY(IPOINT)
IF(XMN.GT.50.)XMN=XMN-100.
IF(XMX.GT.50.)XMX=XMX-100.
WIDTH=(XMX-XMN)*CHARSC*RAST(IFONT)
SYMWID=SYMWID+WIDTH
IF(.NOT.PLOT)GOTO 70
IPOINT=IPOINT+1
PENF = .FALSE.
C
C DRAW THE CHARACTER
C
30 IX=SX(IPOINT)
IY=SY(IPOINT)
IF(IX.GT.50)IX=IX-100
IF(IY.GT.50)IY=IY-100
IY=-IY
IPOINT=IPOINT+1
C
C CHECK FOR A CONTROL BYTE.
C
IF(IX .EQ. 50)GO TO 60
C
C CALCULATE THE NEW PEN COORDINATES RELATIVE TO THE LOWER
C LEFT-HAND CORNER OF THE FIRST CHARACTER.
C
XY=FLOAT(IY)-BASE(IFONT)
XX=FLOAT(IX)-XMN+XY*SLANT
XSYM =XREF+XX*CHARSC*RAST(IFONT)
YSYM =YREF+XY*CHARSC*RAST(IFONT)
C
C SCALE AND ROTATE THE NEW COORDINATES.
C
IF(SYMROT)GO TO 40
XTEMP = XSYM * SYMSC + XORG
YTEMP = YSYM * SYMSC + YORG
GO TO 50
40 XTEMP = (XSYM * SYMCOS - YSYM * SYMSIN) * SYMSC + XORG
YTEMP = (XSYM * SYMSIN + YSYM * SYMCOS) * SYMSC + YORG
C
C MOVE THE PEN TO THE NEW COORDINATES.
C
50 CALL XYZPLT
PENF = .TRUE.
GO TO 30
C
C CHECK FOR THE END OF THE CHARACTER.
C
60 IF(IY .EQ. -50)GO TO 70
PENF = .FALSE.
GO TO 30
C
C ADJUST THE REFERENCE POSITION TO TAKE INTO ACCOUNT THE
C CHARACTER THAT WAS JUST DRAWN.
C
70 XREF = XREF + WIDTH
IF(CHARSC .EQ. 1.0)GO TO 169
C XREF = XREF - 16.*(1.-CHARSC)*RAST(IFONT)
YREF = 0.0
CHARSC = 1.0
GO TO 169
C
C PROCESS CONTROL CHARACTERS.
C
80 IF(ICHR .NE. KSUB)GO TO 150
CHARSC = 0.75
C XREF = XREF + 16.*(1.-CHARSC)*RAST(IFONT)
YREF=-11.*CHARSC*RAST(IFONT)
GO TO 169
150 IF(ICHR .NE. KSUPER)GO TO 160
CHARSC = 0.75
C XREF = XREF + 16.*(1.-CHARSC)*RAST(IFONT)
YREF=21.-11.*CHARSC*RAST(IFONT)
GO TO 169
160 IF(ICHR .NE. KBKSP)GO TO 310
SYMWID=SYMWID-WIDTH
XREF = XREF - WIDTH
WIDTH = 0.0
GOTO 169
310 IF(ICHR.NE.KCALL)GOTO 169
C
C UNPACK COMMAND
C
ICOM = STRING(JJ+1:JJ+2)
JJ=JJ+2
C
C PROCESS COMMAND
C
CALL UPPER(ICOM,2)
IF(ICOM.EQ.'CL')THEN
C
C CLEAR ALL FONTS FROM THE BUFFERS
C
DO 1002 II=1,10
IOFF(II)=25000
IFLEN(II)=0
IF(II)='@@'
IFN(II)='@@'
ITYPE(II)=0
BASE(II)=-9.
RAST(II)=1.
1002 continue
IOFF(1)=0
GOTO 169
ELSE IF(ICOM(1:1).EQ.'C')THEN
C
C LOOK FOR EXTENDED COLOR COMMAND OF THE FORM
C @Cnnn WHERE nnn IS A 3 DIGIT NUMBER
C
IF(.NOT.COLRF)COLOLD=COLOUR
COLRF=.TRUE.
C
C SEE IF THE FIRST CHARACTER IS A NUMBER
C
DO 2050 K=1,9
IF(ICOM(2:2).EQ.PENS(K))GOTO 2051
2050 CONTINUE
C
C NO NUMBER FOUND - MUST BE A FONT CHANGE COMMAND
C
IF(ICOM(2:2).NE.'0')GOTO 2010
2051 JJ=JJ+2
C
C GET THE 3 DIGIT NUMBER
C
READ(STRING(JJ-2:JJ),'(I3)',ERR=169)K
IF(.NOT.PLOT)GOTO 169
CALL COLOR(K)
ELSE IF(ICOM(1:1).EQ.'P')THEN
C
C CHANGE PEN/COLOR
C
IF(.NOT.PLOT)GOTO 169
IF(.NOT.COLRF)COLOLD=COLOUR
COLRF=.TRUE.
DO 2030 K=1,16
IF(ICOM(2:2).EQ.PENS(K))GOTO 2031
2030 CONTINUE
IF(ICOM(2:2).NE.'0')GOTO 2010
K=1
2031 CALL COLOR(K)
GOTO 169
ELSE IF(ICOM(1:1).EQ.'Z')THEN
DO 2040 K=1,16
IF(ICOM(2:2).EQ.PENS(K))GOTO 2041
2040 CONTINUE
IF(ICOM(2:2).NE.'0')GOTO 2010
K=0
2041 SLANT=SIN(K*0.08726646)
GOTO 169
ENDIF
C SEARCH FOR FONT BY NAME THEN BY NUMBER
2010 DO 1003 K=1,10
IF(ICOM.EQ.IF(K).OR.ICOM.EQ.IFN(K))GOTO 302
1003 CONTINUE
C NOT FOUND SEARCH MAIN DIRECTORY
DO 1004 ID=1,NFNT
IF(ICOM.EQ.DNME(ID).OR.ICOM.EQ.DNUM(ID))GOTO 1001
1004 CONTINUE
C FONT NOT FOUND USE LAST FONT
GOTO 169
1001 ILEN=DLEN(ID)
C
C FIND WHERE FONT WILL FIT
C
DO 1005 II=10,1,-1
IF(ILEN+IOFF(II).LE.25000)GOTO 1010
1005 CONTINUE
1010 call rdfsym(id,ii)
k=ii
C
C ERROR IF NO ROOM ANYWHERE!
C
302 IFONT=K
169 ASCFNT=ITYPE(IFONT).EQ.-1
170 CONTINUE
180 IF(.NOT.PLOT)THEN
X=SYMWID*HEIGHT/21.
RETURN
END IF
C
C SCALE AND ROTATE THE FINAL COORDINATES.
C
IF(SYMROT)GO TO 190
XTEMP = XREF * SYMSC + XORG
YTEMP = YORG
GO TO 200
190 XTEMP = XREF * SYMCOS * SYMSC + XORG
YTEMP = XREF * SYMSIN * SYMSC + YORG
C
C PLOT TO THE END OF THE CHARACTER STRING.
C
200 PENF = .FALSE.
CALL XYZPLT
C
C RESET COLOR
C
IF(COLRF.AND.(COLOLD.NE.COLOUR))CALL COLOR(COLOLD)
RETURN
C
END
REAL FUNCTION SYMWID(HEIGHT,NCHAR,STRING)
real height
integer nchar
CHARACTER STRING*255
integer nc
real ss
NC=-IABS(NCHAR)
C
C THIS FUNCTION RETURNS THE WIDTH OF THE STRING WITHOUT DRAWING IT
C
SS=0.
CALL SYMBEL(SS,0.,0.,HEIGHT,NC,STRING)
SYMWID=SS
RETURN
END
c
subroutine rddsym(nfnt)
integer nfnt
c
integer lnblk, ilen
include 'pltcom.dat'
#include "fontdef.inc"
c
#if defined(unix) || defined(win32)
c
c First, check the environmental variable "PPL_HOME"
c
CHARACTER pplhome*265
call getenv('PPL_HOME', pplhome)
if(pplhome .ne. ' ') then
ilen=lnblk(pplhome,265)
fontdir = pplhome(:ilen)//"/lib/pplusfonts/"
else
c If not found, use compilation default
pplhome =
*'$(FONTDIR)'
ilen=lnblk(pplhome,265)
fontdir = pplhome(:ilen)//"/"
endif
#endif
#if defined(vms)
fontdir = 'plotfonts:'
#endif
NFNT=numfonts
end
c
subroutine rdfsym(id,ii)
integer id,ii
c
integer ij,iadd,slen,lnblk
character*255 fontfile
integer*2 icnt, ibase, irast, ilen
include 'pltcom.dat'
#include "fontdef.inc"
c
slen = lnblk(fontdir, 255)
fontfile = fontdir(:slen)//dname(id)
#if defined(unix) || defined(win32)
OPEN(LUSY,FILE=fontfile,STATUS='OLD',
*FORM='UNFORMATTED',ERR=169)
#else
open(lusy,file=fontfile,status='old',readonly,
*form='unformatted',err=169)
#endif
C
C SETUP FOR NEW FONT
C
IF(II)=DNME(ID)
IFN(II)=DNUM(ID)
ITYPE(II)=DTYPE(ID)
IFLEN(II)=DLEN(ID)
C
C SETUP IOFF
C
IF(II.EQ.10)GOTO 1008
DO 1007 IJ=II+1,10
IOFF(IJ)=25000
IF(IJ)='@@'
IFN(IJ)='@@'
IFLEN(IJ)=0
1007 continue
IOFF(II+1)=IOFF(II)+IFLEN(II)
C
C READ NEW FONT
C
1008 READ(LUSY)ICNT,IBASE,IRAST,ILEN
READ(LUSY)(ASCII(IJ,II),IJ=1,127)
BASE(II)=FLOAT(IBASE)
RAST(II)=21./FLOAT(IRAST)
IADD=IOFF(II)+1
READ(LUSY)(SX(IJ),IJ=IADD,IADD+DLEN(ID)-1)
READ(LUSY)(SY(IJ),IJ=IADD,IADD+DLEN(ID)-1)
CLOSE(LUSY)
C
C DONE
C
169 continue
return
end
------------------- fontdef.inc ---------------------
C**
C** $Id: fontdef.inc,v 1.1 2000/01/07 23:06:26 dwd Exp $
C**
C**
C***********************************************************************
C**
C** PLOT+ Scientific Graphics System
C**
C***********************************************************************
C**
C**
#if defined(unix) || defined(win32)
integer*2 sx(25000), sy(25000)
#else
byte sx(25000), sy(25000)
#endif
integer*2 ascii(127,10), dtype(35), dlen(35), ioff(10)
integer*2 iflen(10), itype(10)
real base(10), rast(10)
integer numfonts
c
character*2 dnme(35), dnum(35), if(10), ifn(10)
character*6 dname(35)
character*255 fontdir
c
common/symcom/sx,sy,ascii,base,rast,dtype,dlen,ioff,iflen,itype,
*numfonts
common/sysstr/dnme,dnum,dname,if,ifn,fontdir
-------------------- pltcom.dat ----------------------
C**
C** $Id: pltcom.unx,v 1.4 2002/02/27 17:59:14 dwd Exp $
C**
C**
C***********************************************************************
C**
C** PLOT+ Scientific Graphics System
C**
C***********************************************************************
C**
C**
CHARACTER ALPHA*1,DASH*1,POINT*1,VECTOR*1
CHARACTER PMODE*1,FILEZ*255,FILET*255,FILEZEXT*255
INTEGER BEL,ESC,GS,SYN,US
LOGICAL GRAPHF,LPEN,MIRAF,MIRBF,PEN,PENF,PLTFLG,ROTAT,SAVEF,
* VIEWF,WINDOF,NEWFIL,TEKOPN,GKSOPN,HAVEX
INTEGER*4 OLDGZA,OLDGZB,OLDHTA,OLDHTB,oldhpa,oldhpb
INTEGER BAUDR,COLOUR,OSFLG,OWFLG,PTYPE,TTYPE,FZCNT
INTEGER TEKON(3),TEKOFF(5),HOME(5)
integer idseg,idtk,iprim,iseq,lhia,lhib,lloba
integer losflg,lowflg,luhp,lutk,lusy,maptype
integer numclr,rdclr(256),grnclr(256),blclr(256)
integer mpnone,mpmerc,mpplrst,mpcylind
integer xwwdth,xwhgth,xwxorg,xwyorg
integer canvas
logical wrtclr,mapproj
real pltoha,pltohb,pltota,pltotb,seg,maplat,maplong
real a,amax,amin,anew,aold,aorign,aosold,aref,asize
real b,bmax,bmin,bnew,bold,borign,bosold,bref,bsize
real cold,cosrlat,cref,dseg,factor,hmark,hpscla,hpsclb
real maxyp,rotcos,rotsin,tax,tay,taz,tbx,tby,tbz,tcx,tcy,tcz
real thight,tscla,tsclb,twidth,vdist,xmax,xmin,xnew,xold
real xscale,xtemp,ymax,ymin,ynew,yold,yscale,ytemp
real znew,zold,zscale,ztemp
C
PARAMETER (ALPHA='A',DASH='D',POINT='P',VECTOR='V')
PARAMETER (BEL=7,ESC=27,GS=29,SYN=22,US=31)
PARAMETER (MPNONE=0,MPMERC=1,MPPLRST=2,MPCYLIND=3)
C
COMMON /PLTCM1/ A,AMAX,AMIN,ANEW,AOLD,AORIGN,AOSOLD,AREF,ASIZE,B,
* BAUDR,BMAX,BMIN,BNEW,BOLD,BORIGN,BOSOLD,BREF,BSIZE,canvas,COLD,
* COLOUR,cosrlat,CREF,DSEG(4),FACTOR,FZCNT,GKSOPN,GRAPHF,HAVEX,
* HMARK,HPSCLA,HPSCLB,IDSEG,IDTK,IPRIM,ISEQ,LHIA,LHIB,LLOBA,LOSFLG,
* LOWFLG,LPEN,LUHP,LUTK,LUSY,maplat,maplong,mapproj,maptype,maxyp,
* MIRAF,MIRBF,NEWFIL,OLDGZA,OLDGZB,OLDHTA,
* OLDHTB,OLDHPA,OLDHPB,OSFLG,OWFLG,PEN,PENF,PLTFLG,PLTOHA,PLTOHB,
* PLTOTA,PLTOTB,PTYPE,ROTAT,ROTCOS,ROTSIN,SAVEF,SEG,TAX,TAY,TAZ,
* TBX,TBY,TBZ,TCX,TCY,TCZ,TEKOPN,THIGHT,TSCLA,TSCLB,TTYPE,TWIDTH,
* VDIST,VIEWF,XMAX,XMIN,XNEW,XOLD,XSCALE,XTEMP,YMAX,YMIN,YNEW,YOLD,
* YSCALE,YTEMP,WINDOF,ZNEW,ZOLD,ZSCALE,ZTEMP
COMMON /PLTCM2/ PMODE,FILEZ,FILET,FILEZEXT
common /pltcm3/ numclr,rdclr,grnclr,blclr,wrtclr
common /pltcm4/ xwwdth,xwhgth,xwxorg,xwyorg
COMMON /TEKCM1/ TEKON,TEKOFF,HOME
C
------------------ symbel.s --------------------------
.data
.align 2
_readir.0:
.space 4
_pens.1:
.ascii "1"
.ascii "2"
.ascii "3"
.ascii "4"
.ascii "5"
.ascii "6"
.ascii "7"
.ascii "8"
.ascii "9"
.ascii "A"
.ascii "B"
.ascii "C"
.ascii "D"
.ascii "E"
.ascii "F"
.ascii "G"
.align 2
___g77_icilist_0.3:
.long 1
.long 0
.long 1
.long ___g77_format_999.2
.long 2
.long 1
.const_data
___g77_format_999.2:
.ascii "(I2)"
.data
.cstring
LC14:
.ascii "(I3)\0"
.data
.align 2
___g77_icilist_1.4:
.long 1
.long 0
.long 0
.long LC14
.long 0
.long 1
--
Summary: g77/gcc version 3.4.0 bug
Product: gcc
Version: unknown
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: libf2c
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: dave dot kachel at noaa dot gov
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43754
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Bug target/43754] g77/gcc version 3.4.0 bug
2010-04-14 22:03 [Bug libf2c/43754] New: g77/gcc version 3.4.0 bug dave dot kachel at noaa dot gov
@ 2010-04-14 22:06 ` rguenth at gcc dot gnu dot org
2010-04-14 22:07 ` pinskia at gcc dot gnu dot org
1 sibling, 0 replies; 3+ messages in thread
From: rguenth at gcc dot gnu dot org @ 2010-04-14 22:06 UTC (permalink / raw)
To: gcc-bugs
------- Comment #1 from rguenth at gcc dot gnu dot org 2010-04-14 22:05 -------
g77 is no longer maintained. You might want to try GCC 3.4.6 which contains
lots of bugfixes compared to 3.4.0.
--
rguenth at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |RESOLVED
Resolution| |WONTFIX
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43754
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Bug target/43754] g77/gcc version 3.4.0 bug
2010-04-14 22:03 [Bug libf2c/43754] New: g77/gcc version 3.4.0 bug dave dot kachel at noaa dot gov
2010-04-14 22:06 ` [Bug target/43754] " rguenth at gcc dot gnu dot org
@ 2010-04-14 22:07 ` pinskia at gcc dot gnu dot org
1 sibling, 0 replies; 3+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2010-04-14 22:07 UTC (permalink / raw)
To: gcc-bugs
------- Comment #2 from pinskia at gcc dot gnu dot org 2010-04-14 22:06 -------
GCC 3.4 is no longer supported and g77 has been replaced with gfortran which is
a Fortran 90/95 compiler (with some support for Fortran 2003 and 2008 now and
majority of support of FORTRAN 77 too).
*** This bug has been marked as a duplicate of 22120 ***
*** This bug has been marked as a duplicate of 22120 ***
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Resolution|WONTFIX |DUPLICATE
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43754
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2010-04-14 22:07 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-04-14 22:03 [Bug libf2c/43754] New: g77/gcc version 3.4.0 bug dave dot kachel at noaa dot gov
2010-04-14 22:06 ` [Bug target/43754] " rguenth at gcc dot gnu dot org
2010-04-14 22:07 ` pinskia at gcc dot gnu dot org
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).