:-) ARRAYS BUG

Sun, 22 Jun 1997 00:50:35 +0800

This is the -best- bug that I have ever found! :-) Take a look at the code
below...

Program
    FunnyBug;
Type
    PArray = ^TArray;
    TArray = Array[0..255] Of Integer;
Var
    I : Integer;
    A : PArray;
Begin
    New(A);
    For I := 0 To 255 Do
        Begin
            A^[I]   := 10;
            A^[(I)] := 10;  { :-) }
        End;
    Dispose(A);
End.

Hehehe. I LOVE GPC's parser... 

Good Luck

 ________________________
|  _)        | |             e-mail: bernie@icenet.com.au
|___)ernhard |_|schirren             ptschirrenb@cc.curtin.edu.au
                             www:    www.geocities.com/CollegePark/Quad/8070/

Bernhard Tschirren (bernie@icenet.com.au)