#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_enter();
  int IA[9 - 0 + 1];
  //   %integerarray ia(0:9)
  int *IAN;
  //   %integerarray(1)%name ian
  IAN = &IA;                    //   ian == ia   ;! type mismatch
  *IAN(/*index missing*/) = 3;  //   ian(2) = 3  ;! index is missing

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