* mode tp

tests/tbs/tb0188.pp

@@ -1,6 +1,7 @@
 { Old file: tbs0222.pp }
 { an record field can't be the counter index (compiles with TP) OK 0.99.11 (PFV) }
 
+{$mode tp}
 
 type TStruct = record
                  x,y: Integer;