f77 compiler bug

[Calvin H. Vu]

In <9105031855.aa01692 at VGR.BRL.MIL> levine%351m.decnet at 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 at scfb.nwc.navy.mil,levine%fidler.decnet at 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 at sgi.com   (415) 962-3679	   | each other."