#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, k,k1,k2,k3

  int I;
  int I1;
  I1 = 1;
  int I2;
  I2 = 2;
  int I3;
  I3 = 3;
  int K;
  int K1;
  int K2;
  int K3;

  //     4
  //     5    %if i2 = i3 %then i = i1

  if (I2 != I3) goto L_0001;
  I = I1;
L_0001:;

//     6    test:

U_1000:;

//     7    %if k2 = k3 %then %start

  if (K2 != K3) goto L_0002;

    //     8      k = k1

  K = K1;

  //     9    %finish

L_0002:;

//    10
//    11  %end

  return;
} /* end of TOPLEV */

// ?TEST unused
// ?LR1 unused
//    12  %endoffile