#include <perms.h>

                                                                //      1  %BEGIN
#line 1 "regression-bugs-tmp/missingrecord.imp"
int main(int argc, char **argv) {
  __label__ _imp_endofblock;
  _imp_initialise(argc, argv);
                                                                //      2    %RECORDFORMAT F(%INTEGER I,J,K,%INTEGERARRAY A(1:5))
_imp_current_line = 2; _imp_current_file = "regression-bugs-tmp/missingrecord.imp";
#line 2 "regression-bugs-tmp/missingrecord.imp"
typedef struct F F;
struct F {
  int I;
  int J;
  int K;
  int A[5];
};
                                                                //      3    %RECORD(F) R
_imp_current_line = 3; _imp_current_file = "regression-bugs-tmp/missingrecord.imp";
#line 3 "regression-bugs-tmp/missingrecord.imp"
 F R;
                                                                //      4    %INTEGERARRAYNAME B
_imp_current_line = 4; _imp_current_file = "regression-bugs-tmp/missingrecord.imp";
#line 4 "regression-bugs-tmp/missingrecord.imp"
int /*arrayname*/*B;
                                                                //      5  
                                                                //      6    ! Bug in AST_SELECT:
                                                                //      7    
                                                                //      8    B==R_A
_imp_current_line = 8; _imp_current_file = "regression-bugs-tmp/missingrecord.imp";
#line 8 "regression-bugs-tmp/missingrecord.imp"
B = &A[-(1)];                                                                //      9  
                                                                //     10  %ENDOFPROGRAM
_imp_current_line = 10; _imp_current_file = "regression-bugs-tmp/missingrecord.imp";
#line 10 "regression-bugs-tmp/missingrecord.imp"
return 0;
_imp_endofblock: ;
} // End of block _imp_main at level 1
#line 10 "regression-bugs-tmp/missingrecord.imp"
// End of file