subroutine a1toi4 (istr,isize,num)
character istr(*)
integer isize, num
integer isign, ipos
character*8 iprog
character nch(10),dash
data iprog /'A1TOI4'/
data nch /'0','1','2','3','4','5','6','7','8','9'/
data dash /'-'/
num=0
isign=0
ipos=1
if (istr(1) .eq. dash)then
isign=1
ipos=2
endif
100 do 150 i=ipos,isize
do 110 j=1,10
if (istr(i) .eq. nch(j)) go to 120
110 continue
go to 200
120 nxtnum=j-1
num=num*10+nxtnum
150 continue
200 if (isign .ne. 0) num=-num
return
end
above case fails on Pentium machine with the following error
$gfortran -c a1toi4_.F
<built-in>:0: internal compiler error: Illegal instruction
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
Tried compiling using both gcc4.1.1 and gcc4.1.2 on pentium mahcines it fails
on opteron based machines it passes
satya
--
Summary: <built-in>:0: internal compiler error: Illegal
instruction
Product: gcc
Version: 4.1.2
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: satyaakam at yahoo dot co dot in
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31408
