#include <perms.h>

                                                                //      1  %begin
#line 1 "regression-compile-tmp/badfor.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      2    %integer x
#line 2 "regression-compile-tmp/badfor.imp"
int X;
                                                                //      3    x = 4
#line 3 "regression-compile-tmp/badfor.imp"
X = 4;
                                                                //      4    %for x = 1, 1, x %cycle
#line 4 "regression-compile-tmp/badfor.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = X; X = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle X = 1, 1, X");
X -= _increment; _control -= _increment;
L_0002:;
if (X == _final) goto L_0003;
X += _increment; _control += _increment;
if (X != _control) _imp_signal(4,2,0,"Corrupt control variable X"); /* FOR loop control variable corrupted */
}
                                                                //      5      write(x, -1)
#line 5 "regression-compile-tmp/badfor.imp"
_imp_WRITE(X, (-1));
                                                                //      6      newline
#line 6 "regression-compile-tmp/badfor.imp"
_imp_NEWLINE();
                                                                //      7    %repeat
#line 7 "regression-compile-tmp/badfor.imp"
goto L_0002;
#line 7 "regression-compile-tmp/badfor.imp"
L_0003:;
                                                                //      8  %endofprogram
#line 8 "regression-compile-tmp/badfor.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 8 "regression-compile-tmp/badfor.imp"
// End of file
