#include <perms.h>

                                                                //      1  %begin
#line 1 "regression-bugs-tmp/nameindex.imp"
int main(int argc, char **argv) {
  __label__ _imp_endofblock;
  _imp_initialise(argc, argv);
                                                                //      2    %byteintegerarray line(0:127)
_imp_current_line = 2; _imp_current_file = "regression-bugs-tmp/nameindex.imp";
#line 2 "regression-bugs-tmp/nameindex.imp"
unsigned char LINE[128];
                                                                //      3    
                                                                //      4    %routine out tag(%integer %name i, j, %integer col)
_imp_current_line = 4; _imp_current_file = "regression-bugs-tmp/nameindex.imp";
#line 4 "regression-bugs-tmp/nameindex.imp"
void OUTTAG( int /*name*/*I, int /*name*/*J, int COL )
#line 4 "regression-bugs-tmp/nameindex.imp"
{
  __label__ _imp_endofblock;
                                                                //      5      %return %if line(i) = j                                   ;! 'i' in line(i) should have been indirected but was not.
_imp_current_line = 5; _imp_current_file = "regression-bugs-tmp/nameindex.imp";
#line 5 "regression-bugs-tmp/nameindex.imp"
if (((LINE[*I]) != (*J))) goto L_0002;
#line 5 "regression-bugs-tmp/nameindex.imp"
return;
#line 5 "regression-bugs-tmp/nameindex.imp"
L_0002:;
                                                                //      6    %end
_imp_current_line = 6; _imp_current_file = "regression-bugs-tmp/nameindex.imp";
#line 6 "regression-bugs-tmp/nameindex.imp"
return;
_imp_endofblock: ;
} // End of block OUTTAG at level 2
                                                                //      7  
                                                                //      8    %integer p, q
_imp_current_line = 8; _imp_current_file = "regression-bugs-tmp/nameindex.imp";
#line 8 "regression-bugs-tmp/nameindex.imp"
int P;
#line 8 "regression-bugs-tmp/nameindex.imp"
int Q;
                                                                //      9  
                                                                //     10    out tag(p, q, 42)
_imp_current_line = 10; _imp_current_file = "regression-bugs-tmp/nameindex.imp";
#line 10 "regression-bugs-tmp/nameindex.imp"
OUTTAG(&P, &Q, 42);
                                                                //     11  
                                                                //     12  %endofprogram
_imp_current_line = 12; _imp_current_file = "regression-bugs-tmp/nameindex.imp";
#line 12 "regression-bugs-tmp/nameindex.imp"
return 0;
_imp_endofblock: ;
} // End of block _imp_main at level 1
#line 12 "regression-bugs-tmp/nameindex.imp"
// End of file