paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 06:10:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* simple test that failed for m68k

Browse Source
This commit is contained in:
pierre 2001-08-01 10:38:27 +00:00
parent 64f266bf07
commit 16bd288cae
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/test/tstring7.pp Normal file
View File

@ -0,0 +1,18 @@
{ Stupid compare test
but it once failed for m68k code PM }
var
st : string;
begin
st:='t';
if st > 'ta' then
begin
writeln('Error "t">"ta" is wrong !');
runerror(1);
end
else
writeln('String compare works OK !');
end.