- Why does this compile?

From: [at]} <Rex>
Date: Mon, 08 Oct 2007 13:31:29 -0500

----boundary-LibPST-iamunique-1968880545_-_-
Content-type: text/plain

        This is too simple. What am I missing? Why does it compile when the compiler should be able to see the errors?

Rex Couture

===============
MODULE TestBug;

PROCEDURE Open* (dev: ARRAY 256 OF SHORTCHAR;
                                      VAR devConf: ARRAY 256 OF SHORTCHAR);
VAR i: INTEGER;
BEGIN
FOR i:= -1000000 TO 1000000 DO (* Why does this compile? *)
        devConf[i]:= dev[i] END
END Open;
                
PROCEDURE RealBug*( a: ARRAY 4 OF REAL; VAR sum: REAL);
VAR i: INTEGER;
BEGIN
FOR i:= -800 TO 1000 DO (* Why does this compile? *)
        a[i]:= i END;
END RealBug;

END TestBug.

--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy


----boundary-LibPST-iamunique-1968880545_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwICAgICAgICAgVGhpcyBpcyB0b28gc2ltcGxlLiAg
V2hhdCBhbSBJIG1pc3Npbmc/ICBXaHkgZG9lcyBpdCBjb21waWxlIHdoZW4gdGhlIGNvbXBpbGVy
IHNob3VsZCBiZSBhYmxlIHRvIHNlZSB0aGUgZXJyb3JzP1xwYXINClxwYXINClJleCBDb3V0dXJl
XHBhcg0KXHBhcg0KPT09PT09PT09PT09PT09XHBhcg0KTU9EVUxFIFRlc3RCdWc7XHBhcg0KXHBh
cg0KUFJPQ0VEVVJFIE9wZW4qIChkZXY6IEFSUkFZIDI1NiBPRiBTSE9SVENIQVI7XHBhcg0KICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBWQVIgZGV2Q29uZjogQVJSQVkgMjU2
IE9GIFNIT1JUQ0hBUik7XHBhcg0KVkFSIGk6IElOVEVHRVI7XHBhcg0KQkVHSU5ccGFyDQpGT1Ig
aTo9IC0xMDAwMDAwIFRPIDEwMDAwMDAgRE8gICAgICAoKiBXaHkgZG9lcyB0aGlzIGNvbXBpbGU/
ICopXHBhcg0KICAgICAgICBkZXZDb25mW2ldOj0gZGV2W2ldIEVORFxwYXINCkVORCBPcGVuO1xw
YXINCiAgICAgICAgICAgICAgICBccGFyDQpQUk9DRURVUkUgUmVhbEJ1ZyooIGE6IEFSUkFZIDQg
T0YgUkVBTDsgVkFSIHN1bTogUkVBTCk7XHBhcg0KVkFSIGk6IElOVEVHRVI7XHBhcg0KQkVHSU5c
cGFyDQpGT1IgaTo9IC04MDAgVE8gMTAwMCBETyAgICAoKiBXaHkgZG9lcyB0aGlzIGNvbXBpbGU/
ICAqKVxwYXINCiAgICAgICAgYVtpXTo9IGkgRU5EO1xwYXINCkVORCBSZWFsQnVnO1xwYXINClxw
YXINCkVORCBUZXN0QnVnLiBccGFyDQpccGFyDQotLS0gQmxhY2tCb3hccGFyDQotLS0gc2VuZCBz
dWJqZWN0IEhFTFAgb3IgVU5TVUJTQ1JJQkUgdG8gYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBh
cg0KfQ==


----boundary-LibPST-iamunique-1968880545_-_---
Received on Mon Oct 08 2007 - 20:31:29 UTC