#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %external %integer here

int HERE;

//     2  %external %integer %spec there

extern int THERE;

//     3  ! NOT IMP77: %extrinsic %integer there too
//     4  ! NOT IMP77: %integer local
//     5
//     6  %owninteger local

static int LOCAL;

//     7
//     8  %externalroutinespec EXT1

extern void EXT1(void);

//     9
//    10  %externalroutine EXT2

void EXT2(void) {
  //    11  %end

  return;
} /* end of EXT2 */

//    12
//    13  %routine FRED

static void FRED(void) {
  //    14  %end

  return;
} /* end of FRED */

//    15
//    16  %begin

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

  //    17  %end

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

//    18
//    19  %endoffile