No LONGREAL int the latest report.

src/ob/Lexer.ob

@@ -159,7 +159,7 @@ VAR
     
     BEGIN
         result <- TRUE;
-        IF peekChar() & ((c = "E") OR (c = "D")) THEN
+        IF peekChar() & (c = "E") THEN
             s := s + "E";
             next();
             collectPlusOrMinus();

test/input/const.ob

@@ -14,9 +14,9 @@ CONST
 	r2 = 1.23;
 	r3 = 1.2345E-1;
 	r4 = 1.23456E+10;
-	lr1 = 2.34567D13;
-	lr2 = 2.34567D+1;
-	lr3 = 2.34567D-5;
+	lr1 = 2.34567E13;
+	lr2 = 2.34567E+1;
+	lr3 = 2.34567E-5;
 	b2 = b1;
 
 END m.

test/test_unit.js

@@ -609,12 +609,6 @@ return {
          ["1.2345 E-12", "not parsed"],
          ["1.2345E-1 2", "not parsed"])
     ),
-"LONGREAL number": testWithGrammar(
-    grammar.expression,
-    pass("1.2345D6",
-         "1.2345D+6",
-         "1.2345D-6")
-    ),
 "REAL number in statement": testWithGrammar(
     grammar.statement,
     pass("IF 1. < 1.2345 THEN END"),