test for length(char) in const expr

tests/ts010020.pp

@@ -0,0 +1,10 @@
+{ test for const string that is a char }
+
+const
+    C ='D';
+    D = 'AD';
+    PP : string[length(D)] = D;
+    P : String[length(c)] = C;
+
+begin
+end.