#include <perms.h>

                                                                //      1  %begin
#line 1 "regression-bugs-tmp/intaddr.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      2    %routine proc(%integer n)
#line 2 "regression-bugs-tmp/intaddr.imp"
void PROC( int N )
#line 2 "regression-bugs-tmp/intaddr.imp"
{
                                                                //      3      write(n, 0); newline
#line 3 "regression-bugs-tmp/intaddr.imp"
_imp_WRITE(N, 0);
#line 3 "regression-bugs-tmp/intaddr.imp"
_imp_NEWLINE();
                                                                //      4    %end
#line 4 "regression-bugs-tmp/intaddr.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PROC at level 2
                                                                //      5  
                                                                //      6    %real fred
#line 6 "regression-bugs-tmp/intaddr.imp"
float FRED;
                                                                //      7  
                                                                //      8    fred = 1.0
#line 8 "regression-bugs-tmp/intaddr.imp"
FRED = 1.0;
                                                                //      9  
                                                                //     10    proc(integer(addr(fred)))
#line 10 "regression-bugs-tmp/intaddr.imp"
PROC(*_imp_INTEGER(_imp_ADDR(&FRED)));
                                                                //     11    
                                                                //     12  %endofprogram
#line 12 "regression-bugs-tmp/intaddr.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/intaddr.imp"
// End of file