#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalroutine toplev

void TOPLEV(void) {
  //     2    %longreal lr1

  double LR1;

  //     3    %integer i, i1 = 1, i2 = 2, i3 = 3

  int I;
  int I1;
  I1 = 1;
  int I2;
  I2 = 2;
  int I3;
  I3 = 3;

  //     4
  //     5    %if i2 = i3 %then %start

  if (I2 != I3) goto L_0001;

    //     6      i = i1

  I = I1;

  //     7    %finish %else %start

  goto L_0002;
L_0001:;

//     8      i = i2

  I = I2;

  //     9    %finish

L_0002:;

//    10
//    11
//    12  %end

  return;
} /* end of TOPLEV */

// ?LR1 unused
//    13  %endoffile