|
@@ -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.
|
|
|
+
|