int main(int argc, char **argv) {
          typedef struct REFFM{short tag; short link; short flags; short ca;} reffm;
          typedef struct DEFFM{struct DEFFM *link; short proc; short ca;} deffm;
          typedef struct PROCFM{struct PROCFM *link; struct REFFM *reflist; struct DEFFM *deflist; short base; short ca; short staticframe; short eventmask; short displayreg; short eventstart; short eventfinish; short ldbase; short ldsize; short vdbase; short vdsize; short me;} procfm;
          goto L_0001;
          void phase1()
{
          // ON DIM DO: struct REFFM *ref
          struct REFFM *ref = ARRAY(struct REFFM , ref, 1, 1, 100)
          DIM 0x0001 0x0001
          struct PROCFM *pp;
          struct PROCFM *qq;
          ref[1].tag = 42;
          return(0);
}
L_0001: