#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_enter();  // %begin

  typedef struct RF {
    int I2;
    float R;
    int I;

  } RF;
  //   %recordformat rf ( %integer i, %real r, %integer i2)
  //
  RF REC1;
  RF REC2;
  //   %record (rf) rec1, rec2
  RF *RECNA1[3 - 2 + 1];
  //   %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

  _imp_leave();
  exit(0);
  return (0);
}