#include <perms.h>

                                                                //      1  %BEGIN
#line 1 "regression-bugs-tmp/missingrecord.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      2    %RECORDFORMAT F(%INTEGER I,J,K,%INTEGERARRAY A(1:5))
#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
#line 3 "regression-bugs-tmp/missingrecord.imp"
 F R;
                                                                //      4    %INTEGERARRAYNAME B
#line 4 "regression-bugs-tmp/missingrecord.imp"
int /*arrayname*/*B;
                                                                //      5  
                                                                //      6    ! Bug in AST_SELECT:
                                                                //      7    
                                                                //      8    B==R_A
#line 8 "regression-bugs-tmp/missingrecord.imp"
B = &A[-(1)];                                                                //      9  
                                                                //     10  %ENDOFPROGRAM
#line 10 "regression-bugs-tmp/missingrecord.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 10 "regression-bugs-tmp/missingrecord.imp"
// End of file