#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalinteger external int

int EXTERNALINT;

//     2  %externalintegerspec nonlocal external int

extern int NONLOCALEXTERNALINT;

//     3
//     4  %routine local routine   ;! is this exported? (in Imp77)

static void LOCALROUTINE(void) {
  //     5    external int = 1

  EXTERNALINT = 1;

  //     6  %end

  return;
} /* end of LOCALROUTINE */

//     7
//     8  %external %routine external rt

void EXTERNALRT(void) {
  //     9    local routine

  LOCALROUTINE();

  //    10  %end

  return;
} /* end of EXTERNALRT */

//    11
//    12  %endoffile