levine%351m.decnet@SCFB.NWC.NAVY.MIL ("351M::LEVINE") (05/04/91)
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 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 "Waiter, there's a bug in my soup!" "No, Sir, it's not a bug, it's a feature!"
calvin@dinkum.wpd.sgi.com (Calvin H. Vu) (05/07/91)
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."