#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  int Ia[10 /*0:9*/];
  //    %integerarray ia(0:9)
  int Ian;     //    %integerarray(1)%name ian
  *Ian = &Ia;  //    ian == ia   ;! type mismatch
  Ian(2) = 3;  //    ian(2) = 3  ;! index is missing
  exit(0);
  return (1);
}