fcl-css: test scan -10.2e+2

packages/fcl-css/tests/tccssscanner.pp

@@ -108,6 +108,7 @@ type
     Procedure TestINT;
     Procedure TestFLOAT;
     Procedure TestFLOATNegDot;
+    Procedure TestFLOATNegAndExp;
     Procedure TestDOUBLE;
     Procedure TestHASH1;
     Procedure TestHASH2;
@@ -420,6 +421,11 @@ begin
   DoTestFloat(-0.123,'-.123');
 end;
 
+procedure TTestCSSScanner.TestFLOATNegAndExp;
+begin
+  DoTestFloat(-1020.0,'-10.2e+2');
+end;
+
 procedure TTestCSSScanner.TestDOUBLE;
 begin
   DoTestFloat(123.3,'123.3');