#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalroutine test     ;! Fails if in a routine but works OK in a begin/end block

void TEST(void) {
  //     2    %if 0 = 1 %then %start  ;! only fails if in an "if" condition. Doesn't matter if forward or reversed or a start/finish block!

  if (0 != 1) goto L_0001;

    //     3      %signal 15,2

  _imp_signal(15, 2, 0, "");

  //     4    %finish

L_0001:;

//     5  %end

  return;
} /* end of TEST */

//     6
//     7  %endoffile