t_id
1083
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
565146864 | 954639 | True | False | Success, compilation failed |
Record count: 1
{ %FAIL } { Source provided for Free Pascal Bug Report 1238 } { Submitted by "Mazen NEIFER" on 2000-11-14 } { e-mail: mazen_neifer@ayna.com } PROGRAM Concat; VAR InputFile,OutputFile:File; c:Char; Buffer:Array[DWord]OF Byte; ReadCount,WriteCount:DWord; BEGIN Assign(OutputFile,'Maple.tar.gz'); ReWrite(OutputFile,1); FOR c:='a' TO 'n' DO BEGIN Assign(InputFile,'xa'+c); Reset(InputFile,1); BlockRead(InputFile,Buffer,SizeOf(Buffer),ReadCount); BlockWrite(OutputFile,Buffer,SizeOf(Buffer),WriteCount); Close(InputFile); END; Close(OutputFile); END.