paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 20:26:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2005-03-10 19:48:47 +00:00
parent 36efa2d7b5
commit 393d860444
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/webtbs/tw3594.pp Normal file
View File

@ -0,0 +1,25 @@
{ Source provided for Free Pascal Bug Report 3594 }
{ Submitted by "Thomas Schatzl" on 2005-01-24 }
{ e-mail: }
{$mode delphi}
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
s1,s2 : String;
n : tdatetime;
begin
n:=Now;
DateTimeToString( s1, 'YYYYY-MM-DD HH:MM:SS', n );
DateTimeToString( s2, 'YYYY-MM-DD HH:NN:SS', n );
if s1<>s2 then
begin
writeln('error');
halt(1);
end;
end.