paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 15:10:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2005-01-08 14:06:04 +00:00
parent bccb02b0de
commit fa131cbb38
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbf/tw3531.pp Normal file
View File

@ -0,0 +1,19 @@
{ Source provided for Free Pascal Bug Report 3531 }
{ Submitted by "Christian Iversen" on 2005-01-07 }
{ e-mail: chrivers@iversen-net.dk }
Program Bug;
Type
XEscapeResolve =
Record
C : Char;
E : String;
End;
Const
XStandardFold1 : Array Of longint = (1);
XStandardFold2 : Array Of XEscapeResolve =
((C: 'n'; E: #10));
Begin
End.