#include <perms.h>

                                                                //      1  %begin
#line 1 "regression-bugs-tmp/unassreal.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      2    %real unassigned real
#line 2 "regression-bugs-tmp/unassreal.imp"
float UNASSIGNEDREAL;
                                                                //      3    %longreal unassigned long real
#line 3 "regression-bugs-tmp/unassreal.imp"
double UNASSIGNEDLONGREAL;
                                                                //      4    %real r
#line 4 "regression-bugs-tmp/unassreal.imp"
float R;
                                                                //      5  
                                                                //      6    r = unassigned real + 1.0
#line 6 "regression-bugs-tmp/unassreal.imp"
R = (((double)(UNASSIGNEDREAL)) + (1.0));
                                                                //      7    r = 1.0
#line 7 "regression-bugs-tmp/unassreal.imp"
R = 1.0;
                                                                //      8  
                                                                //      9    print f l(r, 10); newline
#line 9 "regression-bugs-tmp/unassreal.imp"
_imp_PRINTFL(R, 10);
#line 9 "regression-bugs-tmp/unassreal.imp"
_imp_NEWLINE();
                                                                //     10    print f hex(unassigned real); newline
#line 10 "regression-bugs-tmp/unassreal.imp"
_imp_PRINTFHEX(UNASSIGNEDREAL);
#line 10 "regression-bugs-tmp/unassreal.imp"
_imp_NEWLINE();
                                                                //     11    print f hex(unassigned long real); newline
#line 11 "regression-bugs-tmp/unassreal.imp"
_imp_PRINTFHEX(UNASSIGNEDLONGREAL);
#line 11 "regression-bugs-tmp/unassreal.imp"
_imp_NEWLINE();
                                                                //     12  
                                                                //     13  %endofprogram
#line 13 "regression-bugs-tmp/unassreal.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 13 "regression-bugs-tmp/unassreal.imp"
// End of file