Accueil Explorer Aide
Connexion
pascal
/
freepascal.compiler
miroir de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Fichiers Tickets 0 Wiki
Aborescence: a311607ca6
Branches Tags
freepascal.comp...
/
tests
/
webtbs
/
tw17342.pp

tw17342.pp 162 B
Historique Raw

123456789101112131415 
  1. var
    2. 

  2.   P1, P2: PCardinal;
    3. 

  3.   I: Integer;
    4. 

  4. begin
    5. 

  5. 

  6.   // random pointer
    7. 

  7.   P1 := @I;
    8. 

  8.   P2 := P1;
    9. 

  9. 

  10.   Inc(P1, 97);
    11. 

  11.   Inc(P1, -97);
    12. 

  12. 

  13.   if (P1 <> P2) then
    14. 

  14.     halt(1);
    15. 

  15. end.
    16.