Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!sdd.hp.com!decwrl!sgi!shinobu!odin!dinkum!calvin
From: calvin@dinkum.wpd.sgi.com (Calvin H. Vu)
Newsgroups: comp.sys.sgi
Subject: Re: f77 compiler bug
Message-ID: <1991May7.000805.2423@odin.corp.sgi.com>
Date: 7 May 91 00:08:05 GMT
References: <9105031855.aa01692@VGR.BRL.MIL>
Sender: news@odin.corp.sgi.com (Net News)
Organization: Silicon Graphics, Inc.  Mountain View, CA
Lines: 26

In <9105031855.aa01692@VGR.BRL.MIL> levine%351m.decnet@SCFB.NWC.NAVY.MIL ("351M::LEVINE") writes:

| 	I have just run into an f77 compiler bug (IRIX 3.3.1,
| f77 -V indicates V2.0). Has anyone seen this before and is there
| a work around???
| 
| 	parameter (i=10)
| 	character*(i) string1		<-- compiler accepts it here
| 	structure/abc/
| 		character*(i) line	<-- compiler does not see "i" here
| 	endstructure
| 	character*(i) string2		<-- compiler accepts it here
| 
	It is a bug in the structure extension.  You can use the constant 
    directly or use the #define of cpp to workaround it. 

| Michael N. LeVine  Naval Weapons Center, China Lake, Ca 93555, USA
| Internet: levine%fidler.decnet@scfb.nwc.navy.mil,levine%fidler.decnet@26.3.0.85
| (619) 939-2614  avn  437-2614 

- 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."