Added proper value truncation of real literals

git-svn-id: https://svn-dept.inf.ethz.ch/svn/lecturers/a2/trunk@8751 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxScanner.Mod

@@ -778,7 +778,8 @@ TYPE
 				IF expCh = "E" THEN
 					token.numberType := Real;
 					IF (1 - MaxRealExponent < e) & (e <= MaxRealExponent) THEN
-						IF e < 0 THEN token.real :=  f / Ten( -e ) ELSE token.real := f * Ten( e )  END
+						IF e < 0 THEN token.real :=  f / Ten( -e ) ELSE token.real := f * Ten( e )  END;
+						token.real := REAL (token.real);
 					ELSE Error( Basic.NumberTooLarge )
 					END
 				ELSE