🚀 go-pugleaf

Heres a small code prototype of my problem:

      program test_35

      structure /geom/
        integer ngprops
      end structure
      record /geom/ g1,g2

c     uncomment these for compiler havoc
c      data g1.ngprops /3/
c      data g2.ngprops /5/

c     these are ok when uncommented
c     g1.ngprops=3
c     g2.ngprops=5

      write(*,1000) g1.ngprops
 1000 format('g1=',i2)
      write(*,1001) g2.ngprops
 1001 format('g2=',i2)

      stop
      end

Ok, so I have a structure, and I want to initialize
g1.ngprops and g2.ngprops to differnent values.

Compiling with the data statements uncommented gives:

        f77 test_35.f -o test_35.exe
Error on line 6 of test_35.f: syntax error
Error on line 6 of test_35.f: syntax error
*** Error code 1

Stop.


Note: The record statement is line 6.  

The program works ok with the lines 

     g1.ngprops=3
     g2.ngprops=5

uncommented.

I know you can say:

      structure /geom/
        integer ngprops /5/
      end structure

but then g1.ngprops and g2.ngprops are initialized to the same 
value.

How can you use structure variables in data statements?

Fred
---
Fred Phelan
fred@poly2.nist.gov


PS: This is on a Silicon Graphics machine.

PPS: Anyone care to comment on how common f77 extensions
     like structures have become on other platforms? I'll
     summarize if there is sufficient replies and/or
     interest.