[Gm2] double free or corruption with pointers

[Martin Kalbfuß]

Hi! The following program ends up with a double free corruption. I'm not
sure how this can happen. Anything wrong with my code?

MODULE test2;

IMPORT SYSTEM, SWholeIO, STextIO;
FROM Storage IMPORT ALLOCATE, DEALLOCATE;

TYPE DynArray = POINTER TO INTEGER;
VAR  myArray : DynArray;
     elementPtr : DynArray;
BEGIN
     NEW(myArray, 6, 6);
     elementPtr := SYSTEM.ADDADR(myArray, 2*5+3);
     SWholeIO.WriteInt(elementPtr^, 1); STextIO.WriteLn();
     DISPOSE(myArray);
END test2.


Thanks,
Martin