* bugs from marco

tests/tbf/tbf0347.pp

@@ -0,0 +1,9 @@
+{$mode delphi}
+
+type x = ^longint;
+
+var y:x;
+
+begin
+ y [5]:=5;
+end.

tests/tbf/tbf0349.pp

@@ -0,0 +1,14 @@
+{$mode delphi}
+
+type
+  TCl=class;
+
+const
+  b=1;
+
+type
+  TCL=class
+  end;
+
+begin
+end.

tests/tbs/tbs0348.pp

@@ -0,0 +1,11 @@
+{$mode delphi}
+
+type fluparr=array[0..1000] of longint;
+     flupptr=^fluparr;
+
+var flup : Flupptr;
+    Flupresult : longint;
+
+begin
+ flupresult:=flup[5];
+end.