:-) ARRAYS BUG - Gpc

21 Jun 1997


      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/