Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* mode tp

peter 20 years ago
parent
2dbc4a8d6b
commit
7d881c5c07
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      tests/tbs/tb0188.pp

+ 1 - 0
tests/tbs/tb0188.pp
View File 

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