#include <perms.h>

                                                                //      1  ! test of 'outpos' which can be used in Imp to align text in columns...
                                                                //      2  %begin
#line 2 "regression-run-tmp/outtest.imp"
int main(int argc, char **argv) {
  __label__ _imp_endofblock;
  _imp_initialise(argc, argv);
                                                                //      3    %constintegerarray data(1:10) = 1, 11, 111, 1111, 11111, 111111, 1111111, 11111111, 111111111, 1111111111
_imp_current_line = 3; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 3 "regression-run-tmp/outtest.imp"
const int DATA[10] = { 1, 11, 111, 1111, 11111, 111111, 1111111, 11111111, 111111111, 1111111111,  };
                                                                //      4    %integer i
_imp_current_line = 4; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 4 "regression-run-tmp/outtest.imp"
int I;
                                                                //      5    %for i = 0, 1, 10 %cycle
_imp_current_line = 5; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 5 "regression-run-tmp/outtest.imp"
I = (-1);
if ((((10)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 10");
L_0002:;
if (I == 10) goto L_0003;
I += 1;
                                                                //      6      write(data(i), -1) %if i # 0
_imp_current_line = 6; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 6 "regression-run-tmp/outtest.imp"
if (((I) == (0))) goto L_0005;
#line 6 "regression-run-tmp/outtest.imp"
_imp_WRITE((DATA-1)[I], (-1));
#line 6 "regression-run-tmp/outtest.imp"
L_0005:;
                                                                //      7      %cycle
_imp_current_line = 7; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 7 "regression-run-tmp/outtest.imp"
L_0006:;
                                                                //      8        print symbol('.')
_imp_current_line = 8; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 8 "regression-run-tmp/outtest.imp"
_imp_PRINTSYMBOL(46);
                                                                //      9      %repeat %until outpos&7 = 0
_imp_current_line = 9; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 9 "regression-run-tmp/outtest.imp"
if (((((_imp_OUTPOS()) & (7))) == (0))) goto L_0007;
#line 9 "regression-run-tmp/outtest.imp"
goto L_0006;
#line 9 "regression-run-tmp/outtest.imp"
L_0007:;
                                                                //     10      newline %if i=6
_imp_current_line = 10; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 10 "regression-run-tmp/outtest.imp"
if (((I) != (6))) goto L_0009;
#line 10 "regression-run-tmp/outtest.imp"
_imp_NEWLINE();
#line 10 "regression-run-tmp/outtest.imp"
L_0009:;
                                                                //     11    %repeat
_imp_current_line = 11; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 11 "regression-run-tmp/outtest.imp"
goto L_0002;
#line 11 "regression-run-tmp/outtest.imp"
L_0003:;
                                                                //     12    newline
_imp_current_line = 12; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 12 "regression-run-tmp/outtest.imp"
_imp_NEWLINE();
                                                                //     13  %endofprogram
_imp_current_line = 13; _imp_current_file = "regression-run-tmp/outtest.imp";
#line 13 "regression-run-tmp/outtest.imp"
return 0;
_imp_endofblock: ;
} // End of block _imp_main at level 1
#line 13 "regression-run-tmp/outtest.imp"
// End of file