#include <perms.h>

                                                                //      1  %begin
#line 1 "regression-bugs-tmp/intaddr.imp"
int main(int argc, char **argv) {
  __label__ _imp_endofblock;
  _imp_initialise(argc, argv);
                                                                //      2    %routine proc(%integer n)
_imp_current_line = 2; _imp_current_file = "regression-bugs-tmp/intaddr.imp";
#line 2 "regression-bugs-tmp/intaddr.imp"
void PROC( int N )
#line 2 "regression-bugs-tmp/intaddr.imp"
{
  __label__ _imp_endofblock;
                                                                //      3      write(n, 0); newline
_imp_current_line = 3; _imp_current_file = "regression-bugs-tmp/intaddr.imp";
#line 3 "regression-bugs-tmp/intaddr.imp"
_imp_WRITE(N, 0);
_imp_current_line = 3; _imp_current_file = "regression-bugs-tmp/intaddr.imp";
#line 3 "regression-bugs-tmp/intaddr.imp"
_imp_NEWLINE();
                                                                //      4    %end
_imp_current_line = 4; _imp_current_file = "regression-bugs-tmp/intaddr.imp";
#line 4 "regression-bugs-tmp/intaddr.imp"
return;
_imp_endofblock: ;
} // End of block PROC at level 2
                                                                //      5  
                                                                //      6    %real fred
_imp_current_line = 6; _imp_current_file = "regression-bugs-tmp/intaddr.imp";
#line 6 "regression-bugs-tmp/intaddr.imp"
float FRED;
                                                                //      7  
                                                                //      8    fred = 1.0
_imp_current_line = 8; _imp_current_file = "regression-bugs-tmp/intaddr.imp";
#line 8 "regression-bugs-tmp/intaddr.imp"
FRED = 1.0;
                                                                //      9  
                                                                //     10    proc(integer(addr(fred)))
_imp_current_line = 10; _imp_current_file = "regression-bugs-tmp/intaddr.imp";
#line 10 "regression-bugs-tmp/intaddr.imp"
PROC(*_imp_INTEGER(_imp_ADDR(&FRED)));
                                                                //     11    
                                                                //     12  %endofprogram
_imp_current_line = 12; _imp_current_file = "regression-bugs-tmp/intaddr.imp";
#line 12 "regression-bugs-tmp/intaddr.imp"
return 0;
_imp_endofblock: ;
} // End of block _imp_main at level 1
#line 12 "regression-bugs-tmp/intaddr.imp"
// End of file