* Uses SysUtils to make executable bigger. Otherwise string pointers for FindResource can be less than $10000. They are treated as IDs in such case and the test will fail.

git-svn-id: branches/targetandroid@23433 -

tests/test/units/system/tres.pp

@@ -4,6 +4,8 @@
 
 {$mode objfpc}
 
+uses sysutils;
+
 {$R tres1.res}
 
 procedure Fail(const Msg: string);