rcj@burl.UUCP (R. Curtis Jackson) (05/04/84)
We are running USG 5.0 on a VAX 11/780. Here is part of a subroutine
from an f77 program that compiles properly:
subroutine scale (buff2,f2,ctscl2,type2)
character buff2*132,cont2*2,type2*4
integer a2,d,e2,f2,ctscl2
cont2 = ' '
a2 = index (buff2,'scale')
if (a2 .ne. 0) then
do 100 d = a2+5,len(buff2)
if (f2 .eq. 1) goto 200
if ((buff2(d,d) .eq. ' ') .or.(buff2(d,d) .eq. ' '))
& go to 100
e2=d
f2=1
go to 100
200 if ((buff2(d,d) .ne. ' ') .or. (buff2(d,d) .ne. ' '))
& go to 100
c i = strtok (ctscl2,buff2,cont2,'i')
100 continue
endif
If, however, you change the name of the variable 'd' to 'd2' throughout,
the compiler flags a syntax error on the 'do 100 ...' statement.
Any guesses?
--
The MAD Programmer -- 919-228-3313 (Cornet 291)
alias: Curtis Jackson ...![ ihnp4 ulysses cbosgd clyde ]!burl!rcj