#include <perms.h>

                                                                //      1  %begin
#line 1 "regression-compile-tmp/nameparmass.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      2     %integer no options = 1
#line 2 "regression-compile-tmp/nameparmass.imp"
int NOOPTIONS;
#line 2 "regression-compile-tmp/nameparmass.imp"
NOOPTIONS = 1;
                                                                //      3  
                                                                //      4     %routine get option(%integer %name opt)
#line 4 "regression-compile-tmp/nameparmass.imp"
void GETOPTION( int /*name*/*OPT )
#line 4 "regression-compile-tmp/nameparmass.imp"
{
                                                                //      5        %for opt = 1, 1, no options %cycle
#line 5 "regression-compile-tmp/nameparmass.imp"
{static int _initial, _increment, _final, _control;
_initial = 1; _increment = 1; _final = NOOPTIONS; *OPT = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle *OPT = 1, 1, NOOPTIONS");
*OPT -= _increment; _control -= _increment;
L_0002:;
if (*OPT == _final) goto L_0003;
*OPT += _increment; _control += _increment;
if (*OPT != _control) _imp_signal(4,2,0,"Corrupt control variable *OPT"); /* FOR loop control variable corrupted */
}
                                                                //      6        %repeat
#line 6 "regression-compile-tmp/nameparmass.imp"
goto L_0002;
#line 6 "regression-compile-tmp/nameparmass.imp"
L_0003:;
                                                                //      7     %end
#line 7 "regression-compile-tmp/nameparmass.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GETOPTION at level 2
                                                                //      8  
                                                                //      9    %integer x
#line 9 "regression-compile-tmp/nameparmass.imp"
int X;
                                                                //     10    
                                                                //     11    get option(x)
#line 11 "regression-compile-tmp/nameparmass.imp"
GETOPTION(&X);
                                                                //     12  
                                                                //     13  %endofprogram
#line 13 "regression-compile-tmp/nameparmass.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 13 "regression-compile-tmp/nameparmass.imp"
// End of file
