Merged revisions 1371 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

git-svn-id: branches/fixes_2_0@1372 -

tests/tbs/tb0441.pp

@@ -1,6 +1,6 @@
 {$mode fpc}
 
-operator :=(x:LongInt)RESULT:ShortString;
+operator :=(x:ShortInt)RESULT:ShortString;
   begin
     Val(RESULT,x);
   end;