#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %begin

int main(int argc, char **argv) { /*%begin*/
  _imp_initialise(argc, argv);

  //     2    %externalintegermapspec fred

  extern int *FRED(void)
      ;

  //     3    %integer joe

  int JOE;

  //     4
  //     5    joe = fred

  JOE = *FRED();

  //     6
  //     7    joe = fred + 1  ;! map used in expression is not dereferenced properly!  WHY???

  JOE = *FRED() + 1;

  //     8
  //     9  %endofprogram

  _imp_stop(0);
  return 0;
end_0:;
}