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

+ $opt info

Browse Source 
+ built-in test for equality of expected and actual result
This commit is contained in:
Jonas Maebe 2000-04-10 13:21:48 +00:00
parent c3ac962fd5
commit 37339f70a6
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/testopt/testcse1.pp
View File

@ -1,3 +1,5 @@
{ $OPT=-OG2p3}
procedure t;
var
a: array[1..10,1..10] of string[31];
@ -13,7 +15,11 @@ begin
asm
end;
a[i,j] := a[i,j] + c;
writeln(a[i,j]);
if a[i,j] <> '1234567890' then
begin
writeln('error!');
halt(1)
end;
end;
begin