Path: utzoo!attcan!uunet!tut.cis.ohio-state.edu!pacific.mps.ohio-state.edu!zaphod.mps.ohio-state.edu!sdd.hp.com!decwrl!sgi!shinobu!odin!dinkum!calvin
From: calvin@dinkum.sgi.com (Calvin H. Vu)
Newsgroups: comp.sys.sgi
Subject: Re: Another F77-3.3 Bug
Message-ID: <9867@odin.corp.sgi.com>
Date: 2 Jul 90 18:11:58 GMT
References: <9006291416.aa20103@VGR.BRL.MIL>
Sender: news@odin.corp.sgi.com
Lines: 28

In article <9006291416.aa20103@VGR.BRL.MIL> XBR2D96D@DDATHD21.BITNET (Knobi der Rechnerschrat) writes:
>        program bug_6822
>c
>        logical*1 bla
>        logical  bla4
>c
>        bla  = .true.
>        bla4 = .true.
>        write(*,*) bla,bla4
>c
>        if(.not.bla)  write(*,*) 'bla is false'
>        if(.not.bla4) write(*,*) 'bla4 is false'
>c
>        end
>---------------------------end of t1.f-----------------------------------------

	This is introduced in MIPS 2.0 release to allow logical*1 variables
to contain integer*1 values (for VMS compatibility).  There was an oversight 
in the implementation that caused integer operations on the logical*1
variables.  This has been fixed in the 3.3 maintenance release (and in MIPS
2.10 release).

Sorry about the inconvenience.
- calvin
-----------------------------------------------------------------------------
Calvin H. Vu			   | "We are each of us angels with only one
Silicon Graphics Computer Systems  | wing.  And we can only fly embracing
calvin@sgi.com   (415) 962-3679	   | each other."