#include <perms.h>

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