#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  //  %begin
  typedef struct Rf {
    int I;
    float R;
    int I2;
  } Rf;  //    %recordformat rf ( %integer i, %real r, %integer i2)
         //
  Rf Rec1;
  Rf Rec2;  //    %record (rf) rec1, rec2
  static Rf Recna1[2 /*2:3*/];
  //    %own %record (rf) %name %array recna1(2:3)
  Rf *Recnan1;          //    %record (rf) %name %array %name recnan1
                        //
  Rec1 = Rec2;          //    rec1 = rec2
  Recnan1 = &Recna1;    //    recnan1 == recna1
  *Recnan1(2) = &Rec1;  //    recnan1(2) == rec1   ... the (2) is missing
  Rec2 = *Recnan1(2);   //    rec2 = recnan1(2)   ... the (2) is missing
                        //
                        //  %endofprogram
  exit(0);
  return (1);
}