! File of externals followed by a main program.

recordformat rf ( integer i, real r, integer rf)  ;    ! Are record format vars in a sub-scope?  Or is it just that formats are in a different name space?

! owns and externals are simpler declarations
externalinteger xi1
externalintegername xin1
externalreal xr1
externalinteger xi2,xi3
externalreal xcr1 = 3.1415
externalrealarray xra1(0:9)
externalrealarrayname xran1
externallongreal xclr1 = 3.1415
externallongrealarray xlra1(0:9)
externallongrealarrayname xlran1
externalintegernamearray xina1(0:9)
externalintegernamearrayname xinan1

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

begin
  integer array ia3, ia4(1:10), ia5(2:11,0:1,0:2)
  integernamearray in3a1(2:11,0:1,0:2)

xi1 = 123
  xin1 == xi1
  xin1 = xi1

  xr1 = 1.23
  xr1 = xra1(4)
  xra1(4) = xr1
  xclr1 = 3.1415
  xlra1(4) = xclr1
  xclr1 = xlra1(4)
  xina1(4) == xi1
  xina1(4) = xi1
  xinan1 == xina1
  xinan1(4) == xi1
  xinan1(4) == xin1

  
  ia3(4) = xi1
  ia4(4) = xi1
  ia5(5,0,2) = xi1
  xi1 = ia5(5,0,2)
  in3a1(6,1,1) == xi1
  xi1 = in3a1(6,1,1)

endofprogram