"Arnold G. Gill" <GILLA@QUCDN.QueensU.CA> (06/11/90)
The following source code generates the errors indicated. Our machine is
a 120, running RISC(OS) 4.30. Two separate bugs are presented, both having
something to do with character strings. Note that neither of these bugs was
apparent in the previous f77 compiler that we had (using RISC(OS) 3.10).
*** Number 1 ***
program F77_Bug_5
c
c ----- In this version of the compiler (released with RISC(OS) 4.30), the
c value returned from the character function is not properly used in the
c logical expression, even though it is correct when printed.
c
character*1 ans,upcase
c
write (*,*) 'Input a "y"'
read (*,'((A))') ans
write (*,*) ans,upcase(ans),(upcase(ans).EQ.'Y')
c output is yY F
ans=upcase(ans)
write (*,*) ans,upcase(ans),(ans.EQ.'Y')
c output is YY T
stop
end
c
c ----------------------------------------------------------------------
c
FUNCTION UpCase (ch)
c
CHARACTER*1 UpCase,ch
c
IF ((ch.GE.'a').AND.(ch.LE.'z')) THEN
UpCase=CHAR(ICHAR(ch)-ICHAR('a')+ICHAR('A'))
ELSE
UpCase=ch
ENDIF
RETURN
END
*** Number 2 ***
program F77_Bug_6
c
c ----- The first input works normally. However, the
c second requires one to press <ENTER> twice before the input is accepted.
c This worked properly with the compiler released with RISC(OS) 3.10, but
c fails with the compiler released with RISC(OS) 4.30. The code is
c compiled with the -vms option.
c
character*80 line
c
write (*,99) 'Input some text'
read (*,99) line
write (*,'(1x,(A),$)') 'Input more text: '
read (*,99) line
write (*,99) 'Final output line'
99 format (1x,(A))
stop
end
The version of the compiler used is given by the following file (the stuff
output when f77 -V is invoked).
/usr/lib/cmplrs/f77/cpp:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/fcom:
MIPS f77 2.0 (from RISC/os4.00 & cmplrs2.0)
/usr/lib/cmplrs/f77/ujoin:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/uld:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/usplit:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/umerge:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/uopt:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/ugen:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/as0:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/as1:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/ld:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/ftoc:
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/cord:
ldopen.c: 1.3 2/16/83
ldclose.c: 1.3 2/16/83
ldohseek.c: 1.1 1/7/82
ldshread.c: 1.1 1/7/82
ldsseek.c: 1.1 1/7/82
ldgetname.c: 1.2 2/16/83
ldtbread.c: 1.1 1/7/82
ldgetname.c: 1.2 2/16/83
ldrseek.c: 1.1 1/7/82
ldnrseek.c: 1.1 1/7/82
vldldptr.c: 1.1 1/8/82
allocldptr.c: 1.2 2/16/83
freeldptr.c: 1.1 1/7/82
ldnshread.c: 1.1 1/7/82
MIPS cmplrs 2.0 (from RISC/os 4.00)
/usr/lib/cmplrs/f77/crt1.o:
/usr/lib/cmplrs/f77/crtn.o:
/usr/lib/cmplrs/f77/libm.a:
pow.c 4.5 (Berkeley) 8/21/85
support.c 1.1 (Berkeley) 5/23/85
cbrt.c 1.1 (Berkeley) 5/23/85
log__L.c 1.2 (Berkeley) 8/21/85
log1p.c 1.3 (Berkeley) 8/21/85
exp__E.c 1.2 (Berkeley) 8/21/85
expm1.c 1.2 (Berkeley) 8/21/85
asinh.c 1.2 (Berkeley) 8/21/85
acosh.c 1.2 (Berkeley) 8/21/85
atanh.c 1.2 (Berkeley) 8/21/85
/usr/lib/cmplrs/f77/libF77.a:
/usr/lib/cmplrs/f77/libI77.a:
/usr/lib/cmplrs/f77/libU77.a:
mkindx.c 1.1
mkvers.c 1.2
/usr/lib/cmplrs/f77/libisam.a:
f77 (f77)
Mips Computer Systems 2.0
-------
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Arnold Gill | |
| Queen's University at Kingston | If I hadn't wanted it heard, |
| BITNET : gilla@qucdn | I wouldn't have said it. |
| X-400 : Arnold.Gill@QueensU.CA | |
| INTERNET : gilla@qucdn.queensu.ca | |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-lilian@mips.COM (Lilian Leung) (06/12/90)
In article <90162.010506GILLA@QUCDN.BITNET> GILLA@QUCDN.QueensU.CA (Arnold G. Gill) writes: > > The following source code generates the errors indicated. Our machine is >a 120, running RISC(OS) 4.30. Two separate bugs are presented, both having >something to do with character strings. Note that neither of these bugs was >apparent in the previous f77 compiler that we had (using RISC(OS) 3.10). > ... Please get the 2.10 version of MIPS's FORTRAN compiler. All those bugs you mentioned have been fixed. -- UUCP: {ames,decwrl,prls,pyramid}!mips!lilian (or lilian@mips.com) DDD: 408-991-7848 Lilian Leung (or 408-720-1700, Ext. 848) USPS: MIPS Computer Systems, 930 Arques, Sunnyvale, CA 94086-3650
rogerk@mips.COM (Roger B.A. Klorese) (06/12/90)
In article <90162.010506GILLA@QUCDN.BITNET> GILLA@QUCDN.QueensU.CA (Arnold G. Gill) writes: > > The following source code generates the errors indicated. Our machine is >a 120, running RISC(OS) 4.30. Two separate bugs are presented, both having >something to do with character strings. Note that neither of these bugs was >apparent in the previous f77 compiler that we had (using RISC(OS) 3.10). Both of these bugs are fixed in the new F77 release. If you are currently running RISC/os 4.0 through 4.30 and intend to stay at that OS release for the forseeable future, and you have a software maintenance agreement, you may get a copy of the 4.0-compatible build, called compilers release 2.10, by contacting Customer Services through the Customer Response Center at 1-800-443-MIPS in the USA and Canada. (Elsewhere, call your area support office.) Be sure to request both FORTRAN and the Base Compilers (C) tape. If you intend to upgrade to the latest OS release, 4.50, as soon as it becomes available, and these problems are not critical, you will receive the 4.50-based compilation of the new compilers, called the 2.11 release, automatically within approximately the next two months. -- ROGER B.A. KLORESE MIPS Computer Systems, Inc. phone: +1 408 720-2939 MS 4-02 950 DeGuigne Dr. Sunnyvale, CA 94086 voicemail: +1 408 524-7421 rogerk@mips.COM {ames,decwrl,pyramid}!mips!rogerk "I'm the NLA" "Maybe this world is another planet's hell." -- Aldous Huxley
"Arnold G. Gill" <GILLA@QUCDN.QueensU.CA> (06/13/90)
In article <39321@mips.mips.COM>, rogerk@mips.COM (Roger B.A. Klorese) says: > >In article <90162.010506GILLA@QUCDN.BITNET> GILLA@QUCDN.QueensU.CA (Arnold G. >Gill) writes: >> >> The following source code generates the errors indicated. Our machine >is >>a 120, running RISC(OS) 4.30. Two separate bugs are presented, both having >>something to do with character strings. Note that neither of these bugs was >>apparent in the previous f77 compiler that we had (using RISC(OS) 3.10). > >Both of these bugs are fixed in the new F77 release. > >If you are currently running RISC/os 4.0 through 4.30 and intend to stay at >that OS release for the forseeable future, and you have a software maintenance >agreement, you may get a copy of the 4.0-compatible build, called compilers >release 2.10, by contacting Customer Services through the Customer Response >Center at 1-800-443-MIPS in the USA and Canada. (Elsewhere, call your area >support office.) Be sure to request both FORTRAN and the Base Compilers (C) >tape. We tried that already. Version 2.10 had some serious bugs in the optimizer that forced code to randomly compile to infinite loops. That's why we switched BACK to version 2.00. ------- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- | Arnold Gill | | | Queen's University at Kingston | If I hadn't wanted it heard, | | BITNET : gilla@qucdn | I wouldn't have said it. | | X-400 : Arnold.Gill@QueensU.CA | | | INTERNET : gilla@qucdn.queensu.ca | | -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-