#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalroutine fred(%integer i)

void FRED(int I) {
  //     2    %integer k

  int K;

  //     3    k = i

  K = I;

  //     4    %if k=i %start

  if (K != I) goto L_0001;

    //     5    %finish

L_0001:;

//     6  %end

  return;
} /* end of FRED */

//     7  %endoffile