Browse Source

* new bug

peter 20 years ago
parent
commit
0be4736a4e
1 changed files with 11 additions and 0 deletions
  1. 11 0
      tests/webtbs/tw3628.pp

+ 11 - 0
tests/webtbs/tw3628.pp

@@ -0,0 +1,11 @@
+{ Source provided for Free Pascal Bug Report 3628 }
+{ Submitted by "rimga" on  2005-02-03 }
+{ e-mail: [email protected] }
+{$mode delphi}
+var
+  s: string='12223445';
+begin
+  s:=string(@s[3]); //internal error 200410231
+  WriteLn(ptrint(@s[3]));   //runtime error 203
+end.
+