#include // 1 ! File of externals followed by a main program. // 2 // 3 %recordformat rf ( %integer i, %real r, %record (rf) %name next) ;! Are record format vars in a sub-scope? Or is it just that formats are in a different name space? #line 3 "regression-compile-tmp/bigtest.imp" typedef struct RF RF; struct RF { int I; float R; RF /*name*/*NEXT; }; // 4 // 5 ! owns and externals are simpler declarations // 6 %externalinteger xi1 #line 6 "regression-compile-tmp/bigtest.imp" int XI1; // 7 %externalintegername xin1 #line 7 "regression-compile-tmp/bigtest.imp" int /*name*/*XIN1; // 8 %externalreal xr1 #line 8 "regression-compile-tmp/bigtest.imp" float XR1; // 9 %externalinteger xi2,xi3 #line 9 "regression-compile-tmp/bigtest.imp" int XI2; #line 9 "regression-compile-tmp/bigtest.imp" int XI3; // 10 %externalreal xcr1 = 3.1415 #line 10 "regression-compile-tmp/bigtest.imp" float XCR1 = 3.1415; // 11 %externalrealarray xra1(0:9) #line 11 "regression-compile-tmp/bigtest.imp" float XRA1[10]; // 12 %externalrealarrayname xran1 #line 12 "regression-compile-tmp/bigtest.imp" float /*arrayname*/*XRAN1; // 13 %externallongreal xclr1 = 3.1415 #line 13 "regression-compile-tmp/bigtest.imp" double XCLR1 = 3.1415; // 14 %externallongrealarray xlra1(0:9) #line 14 "regression-compile-tmp/bigtest.imp" double XLRA1[10]; // 15 %externallongrealarrayname xlran1 #line 15 "regression-compile-tmp/bigtest.imp" double /*arrayname*/*XLRAN1; // 16 %externalintegernamearray xina1(0:9) #line 16 "regression-compile-tmp/bigtest.imp" int /*name*/*XINA1[10]; // 17 %externalintegernamearrayname xinan1 #line 17 "regression-compile-tmp/bigtest.imp" int /*name*/*/*arrayname*/*XINAN1; // 18 %externalstring(82) xs1 #line 18 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ XS1; // 19 %externalstring(82)%name xsn1 #line 19 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*XSN1; // 20 %externalstring(82)%array xsa1(4:7) #line 20 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ XSA1[4]; // 21 %externalstring(82)%arrayname xsan1 #line 21 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*arrayname*/*XSAN1; // 22 %externalstring(82)%namearray xsna1(4:7) #line 22 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*XSNA1[4]; // 23 %externalstring(82)%namearrayname xsnan1 #line 23 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*/*arrayname*/*XSNAN1; // 24 %externalrecord (rf) xrec1 #line 24 "regression-compile-tmp/bigtest.imp" RF XREC1; // 25 %externalrecord (rf) %name xrecn1 #line 25 "regression-compile-tmp/bigtest.imp" RF /*name*/*XRECN1; // 26 %externalrecord (rf) %array xreca1(2:3) #line 26 "regression-compile-tmp/bigtest.imp" RF XRECA1[2]; // 27 %externalrecord (rf) %array %name xrecan1 #line 27 "regression-compile-tmp/bigtest.imp" RF /*arrayname*/*XRECAN1; // 28 %externalrecord (rf) %name %array xrecna1(2:3) #line 28 "regression-compile-tmp/bigtest.imp" RF /*name*/*XRECNA1[2]; // 29 %externalrecord (rf) %name %array %name xrecnan1 #line 29 "regression-compile-tmp/bigtest.imp" RF /*name*/*/*arrayname*/*XRECNAN1; // 30 // 31 %externalintegerfn ifn1 #line 31 "regression-compile-tmp/bigtest.imp" int IFN1( void ) #line 31 "regression-compile-tmp/bigtest.imp" { // 32 %result = xi1 #line 32 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return XI1; // 33 %end #line 33 "regression-compile-tmp/bigtest.imp" } // End of block IFN1 at level 1 // 34 // 35 %externalintegermap imap1 #line 35 "regression-compile-tmp/bigtest.imp" int /*map*/*IMAP1( void ) #line 35 "regression-compile-tmp/bigtest.imp" { // 36 %result == xi1 #line 36 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return &XI1; // 37 %end #line 37 "regression-compile-tmp/bigtest.imp" } // End of block IMAP1 at level 1 // 38 // 39 %externalroutine rt1 #line 39 "regression-compile-tmp/bigtest.imp" void RT1( void ) #line 39 "regression-compile-tmp/bigtest.imp" { // 40 %integer i1 #line 40 "regression-compile-tmp/bigtest.imp" int I1; // 41 %routine rt1 #line 41 "regression-compile-tmp/bigtest.imp" void RT1( void ) #line 41 "regression-compile-tmp/bigtest.imp" { // 42 %end #line 42 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RT1 at level 2 // 43 %end #line 43 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RT1 at level 1 // 44 // 45 %externalpredicate test1 #line 45 "regression-compile-tmp/bigtest.imp" int /*Boolean*/ TEST1( void ) #line 45 "regression-compile-tmp/bigtest.imp" { // 46 %true #line 46 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return 1; // 47 %end #line 47 "regression-compile-tmp/bigtest.imp" } // End of block TEST1 at level 1 // 48 // 49 %externalroutine xrt1(%integer p1) #line 49 "regression-compile-tmp/bigtest.imp" void XRT1( int P1 ) #line 49 "regression-compile-tmp/bigtest.imp" { // 50 %real r1 #line 50 "regression-compile-tmp/bigtest.imp" float R1; // 51 %end #line 51 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block XRT1 at level 1 // 52 // 53 %externalroutine xr2(%integer p1, p2, p3, p4) #line 53 "regression-compile-tmp/bigtest.imp" void XR2( int P1, int P2, int P3, int P4 ) #line 53 "regression-compile-tmp/bigtest.imp" { // 54 %real r1 #line 54 "regression-compile-tmp/bigtest.imp" float R1; // 55 %end #line 55 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block XR2 at level 1 // 56 // 57 %externalroutine xr3(%integer p1, p2, %real r1, r2) #line 57 "regression-compile-tmp/bigtest.imp" void XR3( int P1, int P2, float R1, float R2 ) #line 57 "regression-compile-tmp/bigtest.imp" { // 58 %real r3 #line 58 "regression-compile-tmp/bigtest.imp" float R3; // 59 %end #line 59 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block XR3 at level 1 // 60 // 61 %begin #line 61 "regression-compile-tmp/bigtest.imp" int main(int argc, char **argv) { _imp_initialise(argc, argv); // 62 // 63 %integerfn use pointer(%integername n) #line 63 "regression-compile-tmp/bigtest.imp" int USEPOINTER( int /*name*/*N ) #line 63 "regression-compile-tmp/bigtest.imp" { // 64 %result = n #line 64 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return *N; // 65 %end #line 65 "regression-compile-tmp/bigtest.imp" } // End of block USEPOINTER at level 2 // 66 // 67 %integerfn use scalar(%integer n) #line 67 "regression-compile-tmp/bigtest.imp" int USESCALAR( int N ) #line 67 "regression-compile-tmp/bigtest.imp" { // 68 %result = n #line 68 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return N; // 69 %end #line 69 "regression-compile-tmp/bigtest.imp" } // End of block USESCALAR at level 2 // 70 // 71 %integermap map scalar(%integer n) #line 71 "regression-compile-tmp/bigtest.imp" int /*map*/*MAPSCALAR( int N ) #line 71 "regression-compile-tmp/bigtest.imp" { // 72 %owninteger local #line 72 "regression-compile-tmp/bigtest.imp" static int LOCAL; // 73 local = n; #line 73 "regression-compile-tmp/bigtest.imp" LOCAL = N; // 74 %result == local #line 74 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return &LOCAL; // 75 %end #line 75 "regression-compile-tmp/bigtest.imp" } // End of block MAPSCALAR at level 2 // 76 // 77 %routine increment(%integername var) #line 77 "regression-compile-tmp/bigtest.imp" void INCREMENT( int /*name*/*VAR ) #line 77 "regression-compile-tmp/bigtest.imp" { // 78 var = var + 1 #line 78 "regression-compile-tmp/bigtest.imp" *VAR = ((*(int *)(VAR)) + (1)); // 79 %end #line 79 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block INCREMENT at level 2 // 80 // 81 %begin #line 81 "regression-compile-tmp/bigtest.imp" void _BLOCK_1_LEVEL_1_(void) { // 82 %integername ptr #line 82 "regression-compile-tmp/bigtest.imp" int /*name*/*PTR; // 83 // 84 %integer i #line 84 "regression-compile-tmp/bigtest.imp" int I; // 85 // 86 i = ptr #line 86 "regression-compile-tmp/bigtest.imp" I = *PTR; // 87 // 88 i = ptr+ptr #line 88 "regression-compile-tmp/bigtest.imp" I = ((*(int *)(PTR)) + (*PTR)); // 89 // 90 i = use scalar(ptr) #line 90 "regression-compile-tmp/bigtest.imp" I = USESCALAR(*PTR); // 91 // 92 i = use scalar(ptr+ptr) #line 92 "regression-compile-tmp/bigtest.imp" I = USESCALAR(((*(int *)(PTR)) + (*PTR))); // 93 // 94 i = use scalar(ptr)+use scalar(ptr) #line 94 "regression-compile-tmp/bigtest.imp" I = (((int)(USESCALAR(*PTR))) + (USESCALAR(*PTR))); // 95 // 96 ptr = i #line 96 "regression-compile-tmp/bigtest.imp" *PTR = I; // 97 // 98 ptr = i+ptr #line 98 "regression-compile-tmp/bigtest.imp" *PTR = (((int)(I)) + (*PTR)); // 99 // 100 ptr = use scalar(i) #line 100 "regression-compile-tmp/bigtest.imp" *PTR = USESCALAR(I); // 101 // 102 ptr = use scalar(ptr) #line 102 "regression-compile-tmp/bigtest.imp" *PTR = USESCALAR(*PTR); // 103 // 104 ptr = use scalar(ptr+ptr) #line 104 "regression-compile-tmp/bigtest.imp" *PTR = USESCALAR(((*(int *)(PTR)) + (*PTR))); // 105 // 106 ptr = -ptr #line 106 "regression-compile-tmp/bigtest.imp" *PTR = (-(*PTR)); // 107 // 108 i = use pointer(ptr) #line 108 "regression-compile-tmp/bigtest.imp" I = USEPOINTER(PTR); // 109 // 110 i = use pointer(ptr)+use pointer(ptr) #line 110 "regression-compile-tmp/bigtest.imp" I = (((int)(USEPOINTER(PTR))) + (USEPOINTER(PTR))); // 111 // 112 ptr = use pointer(i) #line 112 "regression-compile-tmp/bigtest.imp" *PTR = USEPOINTER(&I); // 113 // 114 ptr = use pointer(ptr) #line 114 "regression-compile-tmp/bigtest.imp" *PTR = USEPOINTER(PTR); // 115 // 116 ->done %if ptr < ptr*ptr #line 116 "regression-compile-tmp/bigtest.imp" if (((*PTR) >= (((*(int *)(PTR)) * (*PTR))))) goto L_0002; #line 116 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 116 "regression-compile-tmp/bigtest.imp" L_0002:; // 117 // 118 ->done %if ptr < i #line 118 "regression-compile-tmp/bigtest.imp" if (((*PTR) >= (I))) goto L_0003; #line 118 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 118 "regression-compile-tmp/bigtest.imp" L_0003:; // 119 // 120 ->done %if ptr < use scalar(i) #line 120 "regression-compile-tmp/bigtest.imp" if (((*PTR) >= (USESCALAR(I)))) goto L_0004; #line 120 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 120 "regression-compile-tmp/bigtest.imp" L_0004:; // 121 // 122 ->done %if ptr < use scalar(ptr) #line 122 "regression-compile-tmp/bigtest.imp" if (((*PTR) >= (USESCALAR(*PTR)))) goto L_0005; #line 122 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 122 "regression-compile-tmp/bigtest.imp" L_0005:; // 123 // 124 ->done %if ptr < use pointer(ptr) #line 124 "regression-compile-tmp/bigtest.imp" if (((*PTR) >= (USEPOINTER(PTR)))) goto L_0006; #line 124 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 124 "regression-compile-tmp/bigtest.imp" L_0006:; // 125 // 126 ->done %if i + ptr < i + use scalar(i) #line 126 "regression-compile-tmp/bigtest.imp" if ((((((int)(I)) + (*PTR))) >= ((((int)(I)) + (USESCALAR(I)))))) goto L_0007; #line 126 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 126 "regression-compile-tmp/bigtest.imp" L_0007:; // 127 // 128 ->done %if i + ptr < i + use scalar(ptr) #line 128 "regression-compile-tmp/bigtest.imp" if ((((((int)(I)) + (*PTR))) >= ((((int)(I)) + (USESCALAR(*PTR)))))) goto L_0008; #line 128 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 128 "regression-compile-tmp/bigtest.imp" L_0008:; // 129 // 130 ->done %if i + ptr < i + use pointer(ptr) #line 130 "regression-compile-tmp/bigtest.imp" if ((((((int)(I)) + (*PTR))) >= ((((int)(I)) + (USEPOINTER(PTR)))))) goto L_0009; #line 130 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 130 "regression-compile-tmp/bigtest.imp" L_0009:; // 131 // 132 ->done %if use scalar(i) < use scalar(i) #line 132 "regression-compile-tmp/bigtest.imp" if (((USESCALAR(I)) >= (USESCALAR(I)))) goto L_000a; #line 132 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 132 "regression-compile-tmp/bigtest.imp" L_000a:; // 133 // 134 ->done %if use scalar(i) < use pointer(i) #line 134 "regression-compile-tmp/bigtest.imp" if (((USESCALAR(I)) >= (USEPOINTER(&I)))) goto L_000b; #line 134 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 134 "regression-compile-tmp/bigtest.imp" L_000b:; // 135 // 136 ->done %if use pointer(i) < use pointer(i) #line 136 "regression-compile-tmp/bigtest.imp" if (((USEPOINTER(&I)) >= (USEPOINTER(&I)))) goto L_000c; #line 136 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 136 "regression-compile-tmp/bigtest.imp" L_000c:; // 137 // 138 ->done %if i + use scalar(i) < use scalar(i) #line 138 "regression-compile-tmp/bigtest.imp" if ((((((int)(I)) + (USESCALAR(I)))) >= (USESCALAR(I)))) goto L_000d; #line 138 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 138 "regression-compile-tmp/bigtest.imp" L_000d:; // 139 // 140 ->done %if i + use scalar(i) < use pointer(i) #line 140 "regression-compile-tmp/bigtest.imp" if ((((((int)(I)) + (USESCALAR(I)))) >= (USEPOINTER(&I)))) goto L_000e; #line 140 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 140 "regression-compile-tmp/bigtest.imp" L_000e:; // 141 // 142 ->done %if i + use pointer(i) < use pointer(i) #line 142 "regression-compile-tmp/bigtest.imp" if ((((((int)(I)) + (USEPOINTER(&I)))) >= (USEPOINTER(&I)))) goto L_000f; #line 142 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 142 "regression-compile-tmp/bigtest.imp" L_000f:; // 143 // 144 ->done %if ptr + use scalar(i) < use scalar(i) #line 144 "regression-compile-tmp/bigtest.imp" if (((((*(int *)(PTR)) + (USESCALAR(I)))) >= (USESCALAR(I)))) goto L_0010; #line 144 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 144 "regression-compile-tmp/bigtest.imp" L_0010:; // 145 // 146 ->done %if ptr + use scalar(i) < use pointer(i) #line 146 "regression-compile-tmp/bigtest.imp" if (((((*(int *)(PTR)) + (USESCALAR(I)))) >= (USEPOINTER(&I)))) goto L_0011; #line 146 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 146 "regression-compile-tmp/bigtest.imp" L_0011:; // 147 // 148 ->done %if ptr + use pointer(i) < use pointer(i) #line 148 "regression-compile-tmp/bigtest.imp" if (((((*(int *)(PTR)) + (USEPOINTER(&I)))) >= (USEPOINTER(&I)))) goto L_0012; #line 148 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 148 "regression-compile-tmp/bigtest.imp" L_0012:; // 149 // 150 ->done %if i + ptr < i + map scalar(i) #line 150 "regression-compile-tmp/bigtest.imp" if ((((((int)(I)) + (*PTR))) >= ((((int)(I)) + (*MAPSCALAR(I)))))) goto L_0013; #line 150 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 150 "regression-compile-tmp/bigtest.imp" L_0013:; // 151 // 152 ->done %if i + ptr < i + map scalar(ptr) #line 152 "regression-compile-tmp/bigtest.imp" if ((((((int)(I)) + (*PTR))) >= ((((int)(I)) + (*MAPSCALAR(*PTR)))))) goto L_0014; #line 152 "regression-compile-tmp/bigtest.imp" goto U_1000; #line 152 "regression-compile-tmp/bigtest.imp" L_0014:; // 153 // 154 map scalar(4) = i #line 154 "regression-compile-tmp/bigtest.imp" *MAPSCALAR(4) = I; // 155 // 156 map scalar(i) = i #line 156 "regression-compile-tmp/bigtest.imp" *MAPSCALAR(I) = I; // 157 // 158 map scalar(ptr) = i #line 158 "regression-compile-tmp/bigtest.imp" *MAPSCALAR(*PTR) = I; // 159 // 160 map scalar(i + ptr) = i #line 160 "regression-compile-tmp/bigtest.imp" *MAPSCALAR((((int)(I)) + (*PTR))) = I; // 161 // 162 increment(i) #line 162 "regression-compile-tmp/bigtest.imp" INCREMENT(&I); // 163 // 164 increment(ptr) #line 164 "regression-compile-tmp/bigtest.imp" INCREMENT(PTR); // 165 // 166 increment(map scalar(0)) #line 166 "regression-compile-tmp/bigtest.imp" INCREMENT(MAPSCALAR(0)); // 167 // 168 increment(map scalar(i)) #line 168 "regression-compile-tmp/bigtest.imp" INCREMENT(MAPSCALAR(I)); // 169 // 170 increment(map scalar(ptr)) #line 170 "regression-compile-tmp/bigtest.imp" INCREMENT(MAPSCALAR(*PTR)); // 171 // 172 increment(map scalar(map scalar(0))) #line 172 "regression-compile-tmp/bigtest.imp" INCREMENT(MAPSCALAR(*MAPSCALAR(0))); // 173 done: #line 173 "regression-compile-tmp/bigtest.imp" U_1000:; // 174 %end #line 174 "regression-compile-tmp/bigtest.imp" return; } // End of block _BLOCK_1_LEVEL_1_ at level 2 _BLOCK_1_LEVEL_1_(); // 175 // 176 %integermapspec imap1 #line 176 "regression-compile-tmp/bigtest.imp" auto int /*map*/*IMAP1( void ); // 177 %integer i1 #line 177 "regression-compile-tmp/bigtest.imp" int I1; // 178 %integername in1 #line 178 "regression-compile-tmp/bigtest.imp" int /*name*/*IN1; // 179 %shortinteger si1 #line 179 "regression-compile-tmp/bigtest.imp" short SI1; // 180 %shortintegername sin1 #line 180 "regression-compile-tmp/bigtest.imp" short /*name*/*SIN1; // 181 %byteinteger bi1 #line 181 "regression-compile-tmp/bigtest.imp" unsigned char BI1; // 182 %byteintegername bin1 #line 182 "regression-compile-tmp/bigtest.imp" unsigned char /*name*/*BIN1; // 183 %real r1 #line 183 "regression-compile-tmp/bigtest.imp" float R1; // 184 %realslong // 185 %real qr1 #line 185 "regression-compile-tmp/bigtest.imp" double QR1; // 186 %realsnormal // 187 %constreal cr1 = 3.1415 #line 187 "regression-compile-tmp/bigtest.imp" const float CR1 = 3.1415; // 188 %longreal lr1 #line 188 "regression-compile-tmp/bigtest.imp" double LR1; // 189 %constlongreal clr1 = 3.1415 #line 189 "regression-compile-tmp/bigtest.imp" const double CLR1 = 3.1415; // 190 %integerfn ifn1 #line 190 "regression-compile-tmp/bigtest.imp" int IFN1( void ) #line 190 "regression-compile-tmp/bigtest.imp" { // 191 %result = i1 #line 191 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return I1; // 192 %end #line 192 "regression-compile-tmp/bigtest.imp" } // End of block IFN1 at level 2 // 193 %integermap imap1 #line 193 "regression-compile-tmp/bigtest.imp" int /*map*/*IMAP1( void ) #line 193 "regression-compile-tmp/bigtest.imp" { // 194 %result == i1 #line 194 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return &I1; // 195 %end #line 195 "regression-compile-tmp/bigtest.imp" } // End of block IMAP1 at level 2 // 196 %routine rt1 #line 196 "regression-compile-tmp/bigtest.imp" void RT1( void ) #line 196 "regression-compile-tmp/bigtest.imp" { // 197 %integer i1 #line 197 "regression-compile-tmp/bigtest.imp" int I1; // 198 %integer local1 #line 198 "regression-compile-tmp/bigtest.imp" int LOCAL1; // 199 %routine rt1 #line 199 "regression-compile-tmp/bigtest.imp" void RT1( void ) #line 199 "regression-compile-tmp/bigtest.imp" { // 200 %integer local1 #line 200 "regression-compile-tmp/bigtest.imp" int LOCAL1; // 201 local1 = 1 #line 201 "regression-compile-tmp/bigtest.imp" LOCAL1 = 1; // 202 i1 = 1 #line 202 "regression-compile-tmp/bigtest.imp" I1 = 1; // 203 %end #line 203 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RT1 at level 3 // 204 local1 = 2 #line 204 "regression-compile-tmp/bigtest.imp" LOCAL1 = 2; // 205 i1 = 2 #line 205 "regression-compile-tmp/bigtest.imp" I1 = 2; // 206 %end #line 206 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RT1 at level 2 // 207 // 208 %predicate test1 #line 208 "regression-compile-tmp/bigtest.imp" int /*Boolean*/ TEST1( void ) #line 208 "regression-compile-tmp/bigtest.imp" { // 209 %false #line 209 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return 0; // 210 %end #line 210 "regression-compile-tmp/bigtest.imp" } // End of block TEST1 at level 2 // 211 // 212 %realarray ra1, ra1b(0:9), ra2, ra2b(10:19) #line 212 "regression-compile-tmp/bigtest.imp" float RA1[10]; #line 212 "regression-compile-tmp/bigtest.imp" float RA1B[10]; #line 212 "regression-compile-tmp/bigtest.imp" float RA2[10]; #line 212 "regression-compile-tmp/bigtest.imp" float RA2B[10]; // 213 %realarrayname ran1, ran2 #line 213 "regression-compile-tmp/bigtest.imp" float /*arrayname*/*RAN1; #line 213 "regression-compile-tmp/bigtest.imp" float /*arrayname*/*RAN2; // 214 %longrealarray lra1, lra1b(0:9), lra2, lra2b(10:19) #line 214 "regression-compile-tmp/bigtest.imp" double LRA1[10]; #line 214 "regression-compile-tmp/bigtest.imp" double LRA1B[10]; #line 214 "regression-compile-tmp/bigtest.imp" double LRA2[10]; #line 214 "regression-compile-tmp/bigtest.imp" double LRA2B[10]; // 215 %longrealarrayname lran1, lran2 #line 215 "regression-compile-tmp/bigtest.imp" double /*arrayname*/*LRAN1; #line 215 "regression-compile-tmp/bigtest.imp" double /*arrayname*/*LRAN2; // 216 %integernamearray ina1, ina1b(0:9), ina2, ina2b(10:19) #line 216 "regression-compile-tmp/bigtest.imp" int /*name*/*INA1[10]; #line 216 "regression-compile-tmp/bigtest.imp" int /*name*/*INA1B[10]; #line 216 "regression-compile-tmp/bigtest.imp" int /*name*/*INA2[10]; #line 216 "regression-compile-tmp/bigtest.imp" int /*name*/*INA2B[10]; // 217 %integernamearrayname inan1, inan2 #line 217 "regression-compile-tmp/bigtest.imp" int /*name*/*/*arrayname*/*INAN1; #line 217 "regression-compile-tmp/bigtest.imp" int /*name*/*/*arrayname*/*INAN2; // 218 %string(82) s1, s2 #line 218 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ S1; #line 218 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ S2; // 219 %string(82)%name sn1, sn2 #line 219 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*SN1; #line 219 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*SN2; // 220 %string(82)%array sa1, sa1b(4:7), sa2, sa2b(9:10), sa3(1:100) #line 220 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ SA1[4]; #line 220 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ SA1B[4]; #line 220 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ SA2[2]; #line 220 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ SA2B[2]; #line 220 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ SA3[100]; // 221 %string(82)%arrayname san1, san2, san3 #line 221 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*arrayname*/*SAN1; #line 221 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*arrayname*/*SAN2; #line 221 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*arrayname*/*SAN3; // 222 %string(82)%namearray sna1, sna2(4:7), sna3(1:2) #line 222 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*SNA1[4]; #line 222 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*SNA2[4]; #line 222 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*SNA3[2]; // 223 %string(82)%namearrayname snan1, snan2 #line 223 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*/*arrayname*/*SNAN1; #line 223 "regression-compile-tmp/bigtest.imp" _imp_string /*%string(82)*/ /*name*/*/*arrayname*/*SNAN2; // 224 %record (rf) rec1, rec2 #line 224 "regression-compile-tmp/bigtest.imp" RF REC1; #line 224 "regression-compile-tmp/bigtest.imp" RF REC2; // 225 %record (rf) %name recn1, recn2 #line 225 "regression-compile-tmp/bigtest.imp" RF /*name*/*RECN1; #line 225 "regression-compile-tmp/bigtest.imp" RF /*name*/*RECN2; // 226 %record (rf) %array reca1,reca2(2:3),reca3(4:5) #line 226 "regression-compile-tmp/bigtest.imp" RF RECA1[2]; #line 226 "regression-compile-tmp/bigtest.imp" RF RECA2[2]; #line 226 "regression-compile-tmp/bigtest.imp" RF RECA3[2]; // 227 %record (rf) %array %name recan1,recan2 #line 227 "regression-compile-tmp/bigtest.imp" RF /*arrayname*/*RECAN1; #line 227 "regression-compile-tmp/bigtest.imp" RF /*arrayname*/*RECAN2; // 228 %record (rf) %name %array recna1,recna2(2:3),recna3(1:2) #line 228 "regression-compile-tmp/bigtest.imp" RF /*name*/*RECNA1[2]; #line 228 "regression-compile-tmp/bigtest.imp" RF /*name*/*RECNA2[2]; #line 228 "regression-compile-tmp/bigtest.imp" RF /*name*/*RECNA3[2]; // 229 %record (rf) %name %array %name recnan1,recnan2 #line 229 "regression-compile-tmp/bigtest.imp" RF /*name*/*/*arrayname*/*RECNAN1; #line 229 "regression-compile-tmp/bigtest.imp" RF /*name*/*/*arrayname*/*RECNAN2; // 230 // 231 ! owns and externals are simpler declarations // 232 %owninteger oi1 #line 232 "regression-compile-tmp/bigtest.imp" static int OI1; // 233 %ownintegername oin1 #line 233 "regression-compile-tmp/bigtest.imp" static int /*name*/*OIN1; // 234 %ownreal or1 #line 234 "regression-compile-tmp/bigtest.imp" static float OR1; // 235 %ownlongreal olr1 #line 235 "regression-compile-tmp/bigtest.imp" static double OLR1; // 236 %owninteger oi2,oi3 #line 236 "regression-compile-tmp/bigtest.imp" static int OI2; #line 236 "regression-compile-tmp/bigtest.imp" static int OI3; // 237 %ownreal ocr1 = 3.1415 #line 237 "regression-compile-tmp/bigtest.imp" static float OCR1 = 3.1415; // 238 %ownlongreal oclr1 = 3.1415 #line 238 "regression-compile-tmp/bigtest.imp" static double OCLR1 = 3.1415; // 239 %ownrealarray ora1(0:9) #line 239 "regression-compile-tmp/bigtest.imp" static float ORA1[10]; // 240 %ownrealarrayname oran1 #line 240 "regression-compile-tmp/bigtest.imp" static float /*arrayname*/*ORAN1; // 241 %ownlongrealarray olra1(0:9) #line 241 "regression-compile-tmp/bigtest.imp" static double OLRA1[10]; // 242 %ownlongrealarrayname olran1 #line 242 "regression-compile-tmp/bigtest.imp" static double /*arrayname*/*OLRAN1; // 243 %ownintegernamearray oina1(0:9) #line 243 "regression-compile-tmp/bigtest.imp" static int /*name*/*OINA1[10]; // 244 %ownintegernamearrayname oinan1 #line 244 "regression-compile-tmp/bigtest.imp" static int /*name*/*/*arrayname*/*OINAN1; // 245 %ownstring(82) os1 #line 245 "regression-compile-tmp/bigtest.imp" static _imp_string /*%string(82)*/ OS1; // 246 %ownstring(82)%name osn1 #line 246 "regression-compile-tmp/bigtest.imp" static _imp_string /*%string(82)*/ /*name*/*OSN1; // 247 %ownstring(82)%array osa1(4:7) #line 247 "regression-compile-tmp/bigtest.imp" static _imp_string /*%string(82)*/ OSA1[4]; // 248 %ownstring(82)%arrayname osan1 #line 248 "regression-compile-tmp/bigtest.imp" static _imp_string /*%string(82)*/ /*arrayname*/*OSAN1; // 249 %ownstring(82)%namearray osna1(4:7) #line 249 "regression-compile-tmp/bigtest.imp" static _imp_string /*%string(82)*/ /*name*/*OSNA1[4]; // 250 %ownstring(82)%namearrayname osnan1 #line 250 "regression-compile-tmp/bigtest.imp" static _imp_string /*%string(82)*/ /*name*/*/*arrayname*/*OSNAN1; // 251 %ownrecord (rf) orec1 #line 251 "regression-compile-tmp/bigtest.imp" static RF OREC1; // 252 %ownrecord (rf) %name orecn1 #line 252 "regression-compile-tmp/bigtest.imp" static RF /*name*/*ORECN1; // 253 %ownrecord (rf) %array oreca1(2:3) #line 253 "regression-compile-tmp/bigtest.imp" static RF ORECA1[2]; // 254 %ownrecord (rf) %array %name orecan1 #line 254 "regression-compile-tmp/bigtest.imp" static RF /*arrayname*/*ORECAN1; // 255 %ownrecord (rf) %name %array orecna1(2:3) #line 255 "regression-compile-tmp/bigtest.imp" static RF /*name*/*ORECNA1[2]; // 256 %ownrecord (rf) %name %array %name orecnan1 #line 256 "regression-compile-tmp/bigtest.imp" static RF /*name*/*/*arrayname*/*ORECNAN1; // 257 // 258 %switch sw1(0:255), sw2('a':'z') #line 258 "regression-compile-tmp/bigtest.imp" static int sw1_SW1_idx; static const void * /*SWITCH*/ sw1_SW1[256] = { &&sw1_SW1_0, &&sw1_SW1_1, &&sw1_SW1_2, &&sw1_SW1_3, &&sw1_SW1_4, &&sw1_SW1_5, &&sw1_SW1_6, &&sw1_SW1_7, &&sw1_SW1_8, &&sw1_SW1_9, &&sw1_SW1_10, &&sw1_SW1_11, &&sw1_SW1_12, &&sw1_SW1_13, &&sw1_SW1_14, &&sw1_SW1_15, &&sw1_SW1_16, &&sw1_SW1_17, &&sw1_SW1_18, &&sw1_SW1_19, &&sw1_SW1_20, &&sw1_SW1_21, &&sw1_SW1_22, &&sw1_SW1_23, &&sw1_SW1_24, &&sw1_SW1_25, &&sw1_SW1_26, &&sw1_SW1_27, &&sw1_SW1_28, &&sw1_SW1_29, &&sw1_SW1_30, &&sw1_SW1_31, &&sw1_SW1_32, &&sw1_SW1_33, &&sw1_SW1_34, &&sw1_SW1_35, &&sw1_SW1_36, &&sw1_SW1_37, &&sw1_SW1_38, &&sw1_SW1_39, &&sw1_SW1_40, &&sw1_SW1_41, &&sw1_SW1_42, &&sw1_SW1_43, &&sw1_SW1_44, &&sw1_SW1_45, &&sw1_SW1_46, &&sw1_SW1_47, &&sw1_SW1_48, &&sw1_SW1_49, &&sw1_SW1_50, &&sw1_SW1_51, &&sw1_SW1_52, &&sw1_SW1_53, &&sw1_SW1_54, &&sw1_SW1_55, &&sw1_SW1_56, &&sw1_SW1_57, &&sw1_SW1_58, &&sw1_SW1_59, &&sw1_SW1_60, &&sw1_SW1_61, &&sw1_SW1_62, &&sw1_SW1_63, &&sw1_SW1_64, &&sw1_SW1_65, &&sw1_SW1_66, &&sw1_SW1_67, &&sw1_SW1_68, &&sw1_SW1_69, &&sw1_SW1_70, &&sw1_SW1_71, &&sw1_SW1_72, &&sw1_SW1_73, &&sw1_SW1_74, &&sw1_SW1_75, &&sw1_SW1_76, &&sw1_SW1_77, &&sw1_SW1_78, &&sw1_SW1_79, &&sw1_SW1_80, &&sw1_SW1_81, &&sw1_SW1_82, &&sw1_SW1_83, &&sw1_SW1_84, &&sw1_SW1_85, &&sw1_SW1_86, &&sw1_SW1_87, &&sw1_SW1_88, &&sw1_SW1_89, &&sw1_SW1_90, &&sw1_SW1_91, &&sw1_SW1_92, &&sw1_SW1_93, &&sw1_SW1_94, &&sw1_SW1_95, &&sw1_SW1_96, &&sw1_SW1_97, &&sw1_SW1_98, &&sw1_SW1_99, &&sw1_SW1_100, &&sw1_SW1_101, &&sw1_SW1_102, &&sw1_SW1_103, &&sw1_SW1_104, &&sw1_SW1_105, &&sw1_SW1_106, &&sw1_SW1_107, &&sw1_SW1_108, &&sw1_SW1_109, &&sw1_SW1_110, &&sw1_SW1_111, &&sw1_SW1_112, &&sw1_SW1_113, &&sw1_SW1_114, &&sw1_SW1_115, &&sw1_SW1_116, &&sw1_SW1_117, &&sw1_SW1_118, &&sw1_SW1_119, &&sw1_SW1_120, &&sw1_SW1_121, &&sw1_SW1_122, &&sw1_SW1_123, &&sw1_SW1_124, &&sw1_SW1_125, &&sw1_SW1_126, &&sw1_SW1_127, &&sw1_SW1_128, &&sw1_SW1_129, &&sw1_SW1_130, &&sw1_SW1_131, &&sw1_SW1_132, &&sw1_SW1_133, &&sw1_SW1_134, &&sw1_SW1_135, &&sw1_SW1_136, &&sw1_SW1_137, &&sw1_SW1_138, &&sw1_SW1_139, &&sw1_SW1_140, &&sw1_SW1_141, &&sw1_SW1_142, &&sw1_SW1_143, &&sw1_SW1_144, &&sw1_SW1_145, &&sw1_SW1_146, &&sw1_SW1_147, &&sw1_SW1_148, &&sw1_SW1_149, &&sw1_SW1_150, &&sw1_SW1_151, &&sw1_SW1_152, &&sw1_SW1_153, &&sw1_SW1_154, &&sw1_SW1_155, &&sw1_SW1_156, &&sw1_SW1_157, &&sw1_SW1_158, &&sw1_SW1_159, &&sw1_SW1_160, &&sw1_SW1_161, &&sw1_SW1_162, &&sw1_SW1_163, &&sw1_SW1_164, &&sw1_SW1_165, &&sw1_SW1_166, &&sw1_SW1_167, &&sw1_SW1_168, &&sw1_SW1_169, &&sw1_SW1_170, &&sw1_SW1_171, &&sw1_SW1_172, &&sw1_SW1_173, &&sw1_SW1_174, &&sw1_SW1_175, &&sw1_SW1_176, &&sw1_SW1_177, &&sw1_SW1_178, &&sw1_SW1_179, &&sw1_SW1_180, &&sw1_SW1_181, &&sw1_SW1_182, &&sw1_SW1_183, &&sw1_SW1_184, &&sw1_SW1_185, &&sw1_SW1_186, &&sw1_SW1_187, &&sw1_SW1_188, &&sw1_SW1_189, &&sw1_SW1_190, &&sw1_SW1_191, &&sw1_SW1_192, &&sw1_SW1_193, &&sw1_SW1_194, &&sw1_SW1_195, &&sw1_SW1_196, &&sw1_SW1_197, &&sw1_SW1_198, &&sw1_SW1_199, &&sw1_SW1_200, &&sw1_SW1_201, &&sw1_SW1_202, &&sw1_SW1_203, &&sw1_SW1_204, &&sw1_SW1_205, &&sw1_SW1_206, &&sw1_SW1_207, &&sw1_SW1_208, &&sw1_SW1_209, &&sw1_SW1_210, &&sw1_SW1_211, &&sw1_SW1_212, &&sw1_SW1_213, &&sw1_SW1_214, &&sw1_SW1_215, &&sw1_SW1_216, &&sw1_SW1_217, &&sw1_SW1_218, &&sw1_SW1_219, &&sw1_SW1_220, &&sw1_SW1_221, &&sw1_SW1_222, &&sw1_SW1_223, &&sw1_SW1_224, &&sw1_SW1_225, &&sw1_SW1_226, &&sw1_SW1_227, &&sw1_SW1_228, &&sw1_SW1_229, &&sw1_SW1_230, &&sw1_SW1_231, &&sw1_SW1_232, &&sw1_SW1_233, &&sw1_SW1_234, &&sw1_SW1_235, &&sw1_SW1_236, &&sw1_SW1_237, &&sw1_SW1_238, &&sw1_SW1_239, &&sw1_SW1_240, &&sw1_SW1_241, &&sw1_SW1_242, &&sw1_SW1_243, &&sw1_SW1_244, &&sw1_SW1_245, &&sw1_SW1_246, &&sw1_SW1_247, &&sw1_SW1_248, &&sw1_SW1_249, &&sw1_SW1_250, &&sw1_SW1_251, &&sw1_SW1_252, &&sw1_SW1_253, &&sw1_SW1_254, &&sw1_SW1_255, }; #line 258 "regression-compile-tmp/bigtest.imp" static int sw2_SW2_idx; static const void * /*SWITCH*/ sw2_SW2[26] = { &&sw2_SW2_97, &&sw2_SW2_98, &&sw2_SW2_99, &&sw2_SW2_100, &&sw2_SW2_101, &&sw2_SW2_102, &&sw2_SW2_103, &&sw2_SW2_104, &&sw2_SW2_105, &&sw2_SW2_106, &&sw2_SW2_107, &&sw2_SW2_108, &&sw2_SW2_109, &&sw2_SW2_110, &&sw2_SW2_111, &&sw2_SW2_112, &&sw2_SW2_113, &&sw2_SW2_114, &&sw2_SW2_115, &&sw2_SW2_116, &&sw2_SW2_117, &&sw2_SW2_118, &&sw2_SW2_119, &&sw2_SW2_120, &&sw2_SW2_121, &&sw2_SW2_122, }; // 259 // 260 %integer %array ia3, ia4(1:10), ia5(2:11,0:1,0:2) #line 260 "regression-compile-tmp/bigtest.imp" int IA3[10]; #line 260 "regression-compile-tmp/bigtest.imp" int IA4[10]; #line 260 "regression-compile-tmp/bigtest.imp" int IA5[10][2][3]; // 261 // 262 %integernamearray in3a1(2:11,0:1,0:2) #line 262 "regression-compile-tmp/bigtest.imp" int /*name*/*IN3A1[10][2][3]; // 263 // 264 i1 = 1 #line 264 "regression-compile-tmp/bigtest.imp" I1 = 1; // 265 // 266 !!!!!!!!!!!!!!!!!!! // 267 // 268 xi1 = 1 #line 268 "regression-compile-tmp/bigtest.imp" XI1 = 1; // 269 xin1 == xi1 #line 269 "regression-compile-tmp/bigtest.imp" XIN1 = &XI1; // 270 xin1 = 1 #line 270 "regression-compile-tmp/bigtest.imp" *XIN1 = 1; // 271 xr1 = 3.1 #line 271 "regression-compile-tmp/bigtest.imp" XR1 = 3.1; // 272 xi2 = xi3 #line 272 "regression-compile-tmp/bigtest.imp" XI2 = XI3; // 273 xcr1 = 3.1415 #line 273 "regression-compile-tmp/bigtest.imp" XCR1 = 3.1415; // 274 xra1(5) = xcr1 #line 274 "regression-compile-tmp/bigtest.imp" XRA1[5] = XCR1; // 275 xran1 == xra1 #line 275 "regression-compile-tmp/bigtest.imp" XRAN1 = &XRA1[0]; // 276 xclr1 = 3.1415 #line 276 "regression-compile-tmp/bigtest.imp" XCLR1 = 3.1415; // 277 xlra1(2) = 3.1 #line 277 "regression-compile-tmp/bigtest.imp" XLRA1[2] = 3.1; // 278 xlran1 == xlra1 #line 278 "regression-compile-tmp/bigtest.imp" XLRAN1 = &XLRA1[0]; // 279 xlran1(2) = 3.2 #line 279 "regression-compile-tmp/bigtest.imp" XLRAN1[2] = 3.2; // 280 xina1(9) == xi1 #line 280 "regression-compile-tmp/bigtest.imp" XINA1[9] = &XI1; // 281 xinan1 == xina1 #line 281 "regression-compile-tmp/bigtest.imp" XINAN1 = XINA1; // 282 // 283 %integer i #line 283 "regression-compile-tmp/bigtest.imp" int I; // 284 %real r #line 284 "regression-compile-tmp/bigtest.imp" float R; // 285 %name fred #line 285 "regression-compile-tmp/bigtest.imp" void /*name*/*FRED; // 286 fred == i #line 286 "regression-compile-tmp/bigtest.imp" FRED = &I; // 287 fred == r #line 287 "regression-compile-tmp/bigtest.imp" FRED = &R; // 288 // 289 // 290 %begin #line 290 "regression-compile-tmp/bigtest.imp" void _BLOCK_2_LEVEL_1_(void) { // 291 // 292 %integer i #line 292 "regression-compile-tmp/bigtest.imp" int I; // 293 %recordformat rf(%record (rf) %name next, %integer i) #line 293 "regression-compile-tmp/bigtest.imp" typedef struct RF RF; struct RF { RF /*name*/*NEXT; int I; }; // 294 // 295 %record (rf) rec #line 295 "regression-compile-tmp/bigtest.imp" RF REC; // 296 %record (rf) %name recn #line 296 "regression-compile-tmp/bigtest.imp" RF /*name*/*RECN; // 297 %record (rf) %array ra(0:10) #line 297 "regression-compile-tmp/bigtest.imp" RF RA[11]; // 298 %record (rf) %name %array rna(0:10) #line 298 "regression-compile-tmp/bigtest.imp" RF /*name*/*RNA[11]; // 299 %record (rf) %name %array %name rnan #line 299 "regression-compile-tmp/bigtest.imp" RF /*name*/*/*arrayname*/*RNAN; // 300 %record (rf) %map rm(%integer i); %result == rec; %end #line 300 "regression-compile-tmp/bigtest.imp" RF /*map*/*RM( int I ) #line 300 "regression-compile-tmp/bigtest.imp" { #line 300 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return &REC; #line 300 "regression-compile-tmp/bigtest.imp" } // End of block RM at level 3 // 301 %integer x #line 301 "regression-compile-tmp/bigtest.imp" int X; // 302 x = rec_i #line 302 "regression-compile-tmp/bigtest.imp" X = REC.I; // 303 x = rec_next_i #line 303 "regression-compile-tmp/bigtest.imp" X = REC.NEXT->I; // 304 x = rec_next_next_i #line 304 "regression-compile-tmp/bigtest.imp" X = REC.NEXT->NEXT->I; // 305 recn == ra(i) #line 305 "regression-compile-tmp/bigtest.imp" RECN = &RA[I]; // 306 recn == ra(i)_next #line 306 "regression-compile-tmp/bigtest.imp" RECN = RA[I].NEXT; // 307 recn == ra(i)_next_next #line 307 "regression-compile-tmp/bigtest.imp" RECN = RA[I].NEXT->NEXT; // 308 ra(i) = rec #line 308 "regression-compile-tmp/bigtest.imp" RA[I] = REC; // 309 ra(i)_i = i #line 309 "regression-compile-tmp/bigtest.imp" RA[I].I = I; // 310 ra(i)_next = rec #line 310 "regression-compile-tmp/bigtest.imp" *RA[I].NEXT = REC; // 311 ra(i)_next = recn #line 311 "regression-compile-tmp/bigtest.imp" *RA[I].NEXT = *RECN; // 312 ra(i)_next_i = i #line 312 "regression-compile-tmp/bigtest.imp" RA[I].NEXT->I = I; // 313 ra(i)_next_next = rec #line 313 "regression-compile-tmp/bigtest.imp" *RA[I].NEXT->NEXT = REC; // 314 ra(i)_next_next = recn #line 314 "regression-compile-tmp/bigtest.imp" *RA[I].NEXT->NEXT = *RECN; // 315 ra(i)_next_next_i = i #line 315 "regression-compile-tmp/bigtest.imp" RA[I].NEXT->NEXT->I = I; // 316 x = ra(i)_i #line 316 "regression-compile-tmp/bigtest.imp" X = RA[I].I; // 317 x = ra(i)_next_i #line 317 "regression-compile-tmp/bigtest.imp" X = RA[I].NEXT->I; // 318 x = ra(i)_next_next_i #line 318 "regression-compile-tmp/bigtest.imp" X = RA[I].NEXT->NEXT->I; // 319 recn == rec #line 319 "regression-compile-tmp/bigtest.imp" RECN = &REC; // 320 x = recn_i #line 320 "regression-compile-tmp/bigtest.imp" X = RECN->I; // 321 x = recn_next_i #line 321 "regression-compile-tmp/bigtest.imp" X = RECN->NEXT->I; // 322 x = recn_next_next_i #line 322 "regression-compile-tmp/bigtest.imp" X = RECN->NEXT->NEXT->I; // 323 recn = rec #line 323 "regression-compile-tmp/bigtest.imp" *RECN = REC; // 324 recn_i = i #line 324 "regression-compile-tmp/bigtest.imp" RECN->I = I; // 325 recn_next = rec #line 325 "regression-compile-tmp/bigtest.imp" *RECN->NEXT = REC; // 326 recn_next_i = i #line 326 "regression-compile-tmp/bigtest.imp" RECN->NEXT->I = I; // 327 recn_next_next = rec #line 327 "regression-compile-tmp/bigtest.imp" *RECN->NEXT->NEXT = REC; // 328 recn_next_next = recn #line 328 "regression-compile-tmp/bigtest.imp" *RECN->NEXT->NEXT = *RECN; // 329 recn_next_next_i = i #line 329 "regression-compile-tmp/bigtest.imp" RECN->NEXT->NEXT->I = I; // 330 recn == rna(i) #line 330 "regression-compile-tmp/bigtest.imp" RECN = RNA[I]; // 331 recn == rna(i)_next #line 331 "regression-compile-tmp/bigtest.imp" RECN = RNA[I]->NEXT; // 332 recn == rna(i)_next_next #line 332 "regression-compile-tmp/bigtest.imp" RECN = RNA[I]->NEXT->NEXT; // 333 rec = rna(i) #line 333 "regression-compile-tmp/bigtest.imp" REC = *RNA[I]; // 334 rec = rna(i)_next #line 334 "regression-compile-tmp/bigtest.imp" REC = *RNA[I]->NEXT; // 335 rec = rna(i)_next_next #line 335 "regression-compile-tmp/bigtest.imp" REC = *RNA[I]->NEXT->NEXT; // 336 x = rna(i)_i #line 336 "regression-compile-tmp/bigtest.imp" X = RNA[I]->I; // 337 x = rna(i)_next_i #line 337 "regression-compile-tmp/bigtest.imp" X = RNA[I]->NEXT->I; // 338 x = rna(i)_next_next_i #line 338 "regression-compile-tmp/bigtest.imp" X = RNA[I]->NEXT->NEXT->I; // 339 rnan == rna #line 339 "regression-compile-tmp/bigtest.imp" RNAN = RNA; // 340 recn == rnan(i) #line 340 "regression-compile-tmp/bigtest.imp" RECN = RNAN[I]; // 341 recn == rnan(i)_next #line 341 "regression-compile-tmp/bigtest.imp" RECN = RNAN[I]->NEXT; // 342 recn == rnan(i)_next #line 342 "regression-compile-tmp/bigtest.imp" RECN = RNAN[I]->NEXT; // 343 rec = rnan(i) #line 343 "regression-compile-tmp/bigtest.imp" REC = *RNAN[I]; // 344 rec = rnan(i)_next #line 344 "regression-compile-tmp/bigtest.imp" REC = *RNAN[I]->NEXT; // 345 rec = rnan(i)_next #line 345 "regression-compile-tmp/bigtest.imp" REC = *RNAN[I]->NEXT; // 346 x = rnan(i)_i #line 346 "regression-compile-tmp/bigtest.imp" X = RNAN[I]->I; // 347 x = rnan(i)_next_i #line 347 "regression-compile-tmp/bigtest.imp" X = RNAN[I]->NEXT->I; // 348 x = rnan(i)_next_next_i #line 348 "regression-compile-tmp/bigtest.imp" X = RNAN[I]->NEXT->NEXT->I; // 349 rnan(i)_i = x #line 349 "regression-compile-tmp/bigtest.imp" RNAN[I]->I = X; // 350 rnan(i)_next = rec #line 350 "regression-compile-tmp/bigtest.imp" *RNAN[I]->NEXT = REC; // 351 rnan(i)_next == recn #line 351 "regression-compile-tmp/bigtest.imp" RNAN[I]->NEXT = RECN; // 352 rnan(i)_next_i = x #line 352 "regression-compile-tmp/bigtest.imp" RNAN[I]->NEXT->I = X; // 353 rnan(i)_next_next = rec #line 353 "regression-compile-tmp/bigtest.imp" *RNAN[I]->NEXT->NEXT = REC; // 354 rnan(i)_next_next == recn #line 354 "regression-compile-tmp/bigtest.imp" RNAN[I]->NEXT->NEXT = RECN; // 355 rnan(i)_next_next_i = x #line 355 "regression-compile-tmp/bigtest.imp" RNAN[I]->NEXT->NEXT->I = X; // 356 recn == rm(i) #line 356 "regression-compile-tmp/bigtest.imp" RECN = RM(I); // 357 recn == rm(i)_next #line 357 "regression-compile-tmp/bigtest.imp" RECN = RM(I)->NEXT; // 358 recn == rm(i)_next_next #line 358 "regression-compile-tmp/bigtest.imp" RECN = RM(I)->NEXT->NEXT; // 359 recn_i = rm(i)_i #line 359 "regression-compile-tmp/bigtest.imp" RECN->I = RM(I)->I; // 360 recn_i = rm(i)_next_i #line 360 "regression-compile-tmp/bigtest.imp" RECN->I = RM(I)->NEXT->I; // 361 recn_i = rm(i)_next_next_i #line 361 "regression-compile-tmp/bigtest.imp" RECN->I = RM(I)->NEXT->NEXT->I; // 362 rm(i) = rec #line 362 "regression-compile-tmp/bigtest.imp" *RM(I) = REC; // 363 rm(i)_next = rec #line 363 "regression-compile-tmp/bigtest.imp" *RM(I)->NEXT = REC; // 364 rm(i)_next_i = x #line 364 "regression-compile-tmp/bigtest.imp" RM(I)->NEXT->I = X; // 365 rm(i)_next == recn #line 365 "regression-compile-tmp/bigtest.imp" RM(I)->NEXT = RECN; // 366 rm(i)_next_next = rec #line 366 "regression-compile-tmp/bigtest.imp" *RM(I)->NEXT->NEXT = REC; // 367 rm(i)_next_next_i = x #line 367 "regression-compile-tmp/bigtest.imp" RM(I)->NEXT->NEXT->I = X; // 368 rm(i)_next_next == recn #line 368 "regression-compile-tmp/bigtest.imp" RM(I)->NEXT->NEXT = RECN; // 369 x = rm(i)_i #line 369 "regression-compile-tmp/bigtest.imp" X = RM(I)->I; // 370 x = rm(i)_next_i #line 370 "regression-compile-tmp/bigtest.imp" X = RM(I)->NEXT->I; // 371 x = rm(i)_next_next_i #line 371 "regression-compile-tmp/bigtest.imp" X = RM(I)->NEXT->NEXT->I; // 372 rm(i)_i = x #line 372 "regression-compile-tmp/bigtest.imp" RM(I)->I = X; // 373 rm(i)_next = rec #line 373 "regression-compile-tmp/bigtest.imp" *RM(I)->NEXT = REC; // 374 rm(i)_next = recn #line 374 "regression-compile-tmp/bigtest.imp" *RM(I)->NEXT = *RECN; // 375 rm(i)_next_i = x #line 375 "regression-compile-tmp/bigtest.imp" RM(I)->NEXT->I = X; // 376 rm(i)_next_next = rec #line 376 "regression-compile-tmp/bigtest.imp" *RM(I)->NEXT->NEXT = REC; // 377 rm(i)_next_next = recn #line 377 "regression-compile-tmp/bigtest.imp" *RM(I)->NEXT->NEXT = *RECN; // 378 rm(i)_next_next_i = x #line 378 "regression-compile-tmp/bigtest.imp" RM(I)->NEXT->NEXT->I = X; // 379 // 380 %end #line 380 "regression-compile-tmp/bigtest.imp" return; } // End of block _BLOCK_2_LEVEL_1_ at level 2 _BLOCK_2_LEVEL_1_(); // 381 // 382 done: #line 382 "regression-compile-tmp/bigtest.imp" U_1001:; // 383 // 384 %begin #line 384 "regression-compile-tmp/bigtest.imp" void _BLOCK_3_LEVEL_1_(void) { // 385 // 386 %recordformat fm (%byteintegerarray ra(-10:3), %integer x) #line 386 "regression-compile-tmp/bigtest.imp" typedef struct FM FM; struct FM { unsigned char RA[14]; int X; }; // 387 %record (fm) jim #line 387 "regression-compile-tmp/bigtest.imp" FM JIM; // 388 %integer fred #line 388 "regression-compile-tmp/bigtest.imp" int FRED; // 389 fred = jim_ra(3) #line 389 "regression-compile-tmp/bigtest.imp" FRED = JIM.RA[13]; // 390 jim_x = 123 #line 390 "regression-compile-tmp/bigtest.imp" JIM.X = 123; // 391 // 392 %end #line 392 "regression-compile-tmp/bigtest.imp" return; } // End of block _BLOCK_3_LEVEL_1_ at level 2 _BLOCK_3_LEVEL_1_(); // 393 // 394 %endofprogram #line 394 "regression-compile-tmp/bigtest.imp" /* Remove %on %event handler here if present for this block */ return 0; sw2_SW2_97:; sw2_SW2_98:; sw2_SW2_99:; sw2_SW2_100:; sw2_SW2_101:; sw2_SW2_102:; sw2_SW2_103:; sw2_SW2_104:; sw2_SW2_105:; sw2_SW2_106:; sw2_SW2_107:; sw2_SW2_108:; sw2_SW2_109:; sw2_SW2_110:; sw2_SW2_111:; sw2_SW2_112:; sw2_SW2_113:; sw2_SW2_114:; sw2_SW2_115:; sw2_SW2_116:; sw2_SW2_117:; sw2_SW2_118:; sw2_SW2_119:; sw2_SW2_120:; sw2_SW2_121:; sw2_SW2_122:; /*_imp_signal(6,3,sw2_SW2_idx,"SWITCH LABEL NOT SET - sw2_SW2");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw2_SW2(%d): at line %s:%d", sw2_SW2_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); sw1_SW1_0:; sw1_SW1_1:; sw1_SW1_2:; sw1_SW1_3:; sw1_SW1_4:; sw1_SW1_5:; sw1_SW1_6:; sw1_SW1_7:; sw1_SW1_8:; sw1_SW1_9:; sw1_SW1_10:; sw1_SW1_11:; sw1_SW1_12:; sw1_SW1_13:; sw1_SW1_14:; sw1_SW1_15:; sw1_SW1_16:; sw1_SW1_17:; sw1_SW1_18:; sw1_SW1_19:; sw1_SW1_20:; sw1_SW1_21:; sw1_SW1_22:; sw1_SW1_23:; sw1_SW1_24:; sw1_SW1_25:; sw1_SW1_26:; sw1_SW1_27:; sw1_SW1_28:; sw1_SW1_29:; sw1_SW1_30:; sw1_SW1_31:; sw1_SW1_32:; sw1_SW1_33:; sw1_SW1_34:; sw1_SW1_35:; sw1_SW1_36:; sw1_SW1_37:; sw1_SW1_38:; sw1_SW1_39:; sw1_SW1_40:; sw1_SW1_41:; sw1_SW1_42:; sw1_SW1_43:; sw1_SW1_44:; sw1_SW1_45:; sw1_SW1_46:; sw1_SW1_47:; sw1_SW1_48:; sw1_SW1_49:; sw1_SW1_50:; sw1_SW1_51:; sw1_SW1_52:; sw1_SW1_53:; sw1_SW1_54:; sw1_SW1_55:; sw1_SW1_56:; sw1_SW1_57:; sw1_SW1_58:; sw1_SW1_59:; sw1_SW1_60:; sw1_SW1_61:; sw1_SW1_62:; sw1_SW1_63:; sw1_SW1_64:; sw1_SW1_65:; sw1_SW1_66:; sw1_SW1_67:; sw1_SW1_68:; sw1_SW1_69:; sw1_SW1_70:; sw1_SW1_71:; sw1_SW1_72:; sw1_SW1_73:; sw1_SW1_74:; sw1_SW1_75:; sw1_SW1_76:; sw1_SW1_77:; sw1_SW1_78:; sw1_SW1_79:; sw1_SW1_80:; sw1_SW1_81:; sw1_SW1_82:; sw1_SW1_83:; sw1_SW1_84:; sw1_SW1_85:; sw1_SW1_86:; sw1_SW1_87:; sw1_SW1_88:; sw1_SW1_89:; sw1_SW1_90:; sw1_SW1_91:; sw1_SW1_92:; sw1_SW1_93:; sw1_SW1_94:; sw1_SW1_95:; sw1_SW1_96:; sw1_SW1_97:; sw1_SW1_98:; sw1_SW1_99:; sw1_SW1_100:; sw1_SW1_101:; sw1_SW1_102:; sw1_SW1_103:; sw1_SW1_104:; sw1_SW1_105:; sw1_SW1_106:; sw1_SW1_107:; sw1_SW1_108:; sw1_SW1_109:; sw1_SW1_110:; sw1_SW1_111:; sw1_SW1_112:; sw1_SW1_113:; sw1_SW1_114:; sw1_SW1_115:; sw1_SW1_116:; sw1_SW1_117:; sw1_SW1_118:; sw1_SW1_119:; sw1_SW1_120:; sw1_SW1_121:; sw1_SW1_122:; sw1_SW1_123:; sw1_SW1_124:; sw1_SW1_125:; sw1_SW1_126:; sw1_SW1_127:; sw1_SW1_128:; sw1_SW1_129:; sw1_SW1_130:; sw1_SW1_131:; sw1_SW1_132:; sw1_SW1_133:; sw1_SW1_134:; sw1_SW1_135:; sw1_SW1_136:; sw1_SW1_137:; sw1_SW1_138:; sw1_SW1_139:; sw1_SW1_140:; sw1_SW1_141:; sw1_SW1_142:; sw1_SW1_143:; sw1_SW1_144:; sw1_SW1_145:; sw1_SW1_146:; sw1_SW1_147:; sw1_SW1_148:; sw1_SW1_149:; sw1_SW1_150:; sw1_SW1_151:; sw1_SW1_152:; sw1_SW1_153:; sw1_SW1_154:; sw1_SW1_155:; sw1_SW1_156:; sw1_SW1_157:; sw1_SW1_158:; sw1_SW1_159:; sw1_SW1_160:; sw1_SW1_161:; sw1_SW1_162:; sw1_SW1_163:; sw1_SW1_164:; sw1_SW1_165:; sw1_SW1_166:; sw1_SW1_167:; sw1_SW1_168:; sw1_SW1_169:; sw1_SW1_170:; sw1_SW1_171:; sw1_SW1_172:; sw1_SW1_173:; sw1_SW1_174:; sw1_SW1_175:; sw1_SW1_176:; sw1_SW1_177:; sw1_SW1_178:; sw1_SW1_179:; sw1_SW1_180:; sw1_SW1_181:; sw1_SW1_182:; sw1_SW1_183:; sw1_SW1_184:; sw1_SW1_185:; sw1_SW1_186:; sw1_SW1_187:; sw1_SW1_188:; sw1_SW1_189:; sw1_SW1_190:; sw1_SW1_191:; sw1_SW1_192:; sw1_SW1_193:; sw1_SW1_194:; sw1_SW1_195:; sw1_SW1_196:; sw1_SW1_197:; sw1_SW1_198:; sw1_SW1_199:; sw1_SW1_200:; sw1_SW1_201:; sw1_SW1_202:; sw1_SW1_203:; sw1_SW1_204:; sw1_SW1_205:; sw1_SW1_206:; sw1_SW1_207:; sw1_SW1_208:; sw1_SW1_209:; sw1_SW1_210:; sw1_SW1_211:; sw1_SW1_212:; sw1_SW1_213:; sw1_SW1_214:; sw1_SW1_215:; sw1_SW1_216:; sw1_SW1_217:; sw1_SW1_218:; sw1_SW1_219:; sw1_SW1_220:; sw1_SW1_221:; sw1_SW1_222:; sw1_SW1_223:; sw1_SW1_224:; sw1_SW1_225:; sw1_SW1_226:; sw1_SW1_227:; sw1_SW1_228:; sw1_SW1_229:; sw1_SW1_230:; sw1_SW1_231:; sw1_SW1_232:; sw1_SW1_233:; sw1_SW1_234:; sw1_SW1_235:; sw1_SW1_236:; sw1_SW1_237:; sw1_SW1_238:; sw1_SW1_239:; sw1_SW1_240:; sw1_SW1_241:; sw1_SW1_242:; sw1_SW1_243:; sw1_SW1_244:; sw1_SW1_245:; sw1_SW1_246:; sw1_SW1_247:; sw1_SW1_248:; sw1_SW1_249:; sw1_SW1_250:; sw1_SW1_251:; sw1_SW1_252:; sw1_SW1_253:; sw1_SW1_254:; sw1_SW1_255:; /*_imp_signal(6,3,sw1_SW1_idx,"SWITCH LABEL NOT SET - sw1_SW1");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw1_SW1(%d): at line %s:%d", sw1_SW1_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block _imp_main at level 1 #line 394 "regression-compile-tmp/bigtest.imp" // End of file