* update

tests/Makefile

@@ -1175,6 +1175,22 @@ $(DOTEST) : utils/dotest.pp utils/redir.pp
 
 testcheck: units $(DOTEST)
 
+#
+# Dotest options
+#
+
+ifneq ($(FPC),ppc386)
+override DOTESTOPT+=-c$(FPC)
+endif
+
+ifdef GRAPH
+override DOTESTOPT+=-g
+endif
+
+ifdef INTERACTIVE
+override DOTESTOPT+=-i
+endif
+
 #
 # Test run targets
 #
@@ -1188,11 +1204,14 @@ tests : clean all_compilations
 cont_tests : all_compilations
 
 %.log : %.pp
-	$(DOTEST) $<
+	$(DOTEST) $(DOTESTOPT) $<
 
 %.elg : %.pp
-	$(DOTEST) -e $<
+	$(DOTEST) $(DOTESTOPT) -e $<
 
+#
+# Compile tests
+#
 alltbs : testcheck $(patsubst %.pp,%.log,$(wildcard tbs/*.pp))
 alltbf : testcheck $(patsubst %.pp,%.log,$(wildcard tbf/*.pp))
 
@@ -1204,6 +1223,25 @@ alltestopt : testcheck $(patsubst %.pp,%.log,$(wildcard testopt/*.pp))
 
 alltests: alltest alltbs alltbf allwebtbs allwebtbf
 
+#
+# Compile and Run tests
+#
+
+allexectbs : testcheck $(patsubst %.pp,%.elg,$(wildcard tbs/*.pp))
+allexectbf : testcheck $(patsubst %.pp,%.elg,$(wildcard tbf/*.pp))
+
+allexecwebtbs : testcheck $(patsubst %.pp,%.elg,$(wildcard webtbs/*.pp))
+allexecwebtbf : testcheck $(patsubst %.pp,%.elg,$(wildcard webtbf/*.pp))
+
+allexectest : testcheck $(patsubst %.pp,%.elg,$(wildcard test/*.pp))
+allexectestopt : testcheck $(patsubst %.pp,%.elg,$(wildcard testopt/*.pp))
+
+allexectests: allexectest allexectbs allexectbf allexecwebtbs allexecwebtbf
+
+#
+# Clean
+#
+
 clean:
 	-rm -f $(addsuffix /*$(PPUEXT),$(DIRS))
 	-rm -f $(addsuffix /*$(OEXT),$(DIRS))
@@ -1220,7 +1258,7 @@ endif
 	-rm -f $(LOG) $(LONGLOG) $(FAILLIST)
 	-rm -f ppas.sh ppas.bat gmon.out
 
-full : clean all_compilations allexec
+full : clean allexectests
 
 info :
 	@echo This Makefile allows to test the compiler

tests/Makefile.fpc

@@ -48,6 +48,22 @@ $(DOTEST) : utils/dotest.pp utils/redir.pp
 
 testcheck: units $(DOTEST)
 
+#
+# Dotest options
+#
+
+ifneq ($(FPC),ppc386)
+override DOTESTOPT+=-c$(FPC)
+endif
+
+ifdef GRAPH
+override DOTESTOPT+=-g
+endif
+
+ifdef INTERACTIVE
+override DOTESTOPT+=-i
+endif
+
 #
 # Test run targets
 #
@@ -61,11 +77,14 @@ tests : clean all_compilations
 cont_tests : all_compilations
 
 %.log : %.pp
-	$(DOTEST) $<
+        $(DOTEST) $(DOTESTOPT) $<
 
 %.elg : %.pp
-	$(DOTEST) -e $<
+        $(DOTEST) $(DOTESTOPT) -e $<
 
+#
+# Compile tests
+#
 alltbs : testcheck $(patsubst %.pp,%.log,$(wildcard tbs/*.pp))
 alltbf : testcheck $(patsubst %.pp,%.log,$(wildcard tbf/*.pp))
 
@@ -77,6 +96,25 @@ alltestopt : testcheck $(patsubst %.pp,%.log,$(wildcard testopt/*.pp))
 
 alltests: alltest alltbs alltbf allwebtbs allwebtbf
 
+#
+# Compile and Run tests
+#
+
+allexectbs : testcheck $(patsubst %.pp,%.elg,$(wildcard tbs/*.pp))
+allexectbf : testcheck $(patsubst %.pp,%.elg,$(wildcard tbf/*.pp))
+
+allexecwebtbs : testcheck $(patsubst %.pp,%.elg,$(wildcard webtbs/*.pp))
+allexecwebtbf : testcheck $(patsubst %.pp,%.elg,$(wildcard webtbf/*.pp))
+
+allexectest : testcheck $(patsubst %.pp,%.elg,$(wildcard test/*.pp))
+allexectestopt : testcheck $(patsubst %.pp,%.elg,$(wildcard testopt/*.pp))
+
+allexectests: allexectest allexectbs allexectbf allexecwebtbs allexecwebtbf
+
+#
+# Clean
+#
+
 clean:
         -rm -f $(addsuffix /*$(PPUEXT),$(DIRS))
         -rm -f $(addsuffix /*$(OEXT),$(DIRS))
@@ -93,7 +131,7 @@ endif
         -rm -f $(LOG) $(LONGLOG) $(FAILLIST)
         -rm -f ppas.sh ppas.bat gmon.out
 
-full : clean all_compilations allexec
+full : clean allexectests
 
 info :
         @echo This Makefile allows to test the compiler

tests/tbf/tb0001.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0010.pp }
 {  tests string constants exceeding lines              OK 0.9.2 }
 

tests/tbf/tb0002.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0029.pp }
 {  tests typeof(object type)                         OK 0.99.1 (FK) }
 

tests/tbf/tb0003.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0036.pp }
 {  assigning a single character to array of char      ?OK 0.9.9 }
 

tests/tbf/tb0004.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0049.pp }
 {  shows an error while defining subrange types         OK 0.99.7 (PFV) }
 

tests/tbf/tb0005.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0060.pp }
 {  shows missing type checking for case statements      OK 0.99.1 (CEC) }
 

tests/tbf/tb0006.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0061.pp }
 {  shows wrong errors when compiling (NOT A bugs)        OK 0.99.1 }
 

tests/tbf/tb0007.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0071.pp }
 {  shows that an unterminated constant string in a writeln() statement crashes the compiler. }
 

tests/tbf/tb0008.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0075.pp }
 {  shows invalid pchar output to console                 OK 0.99.1 }
 

tests/tbf/tb0009.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0085.pp }
 {  shows runerror 216                                    OK 0.99.1 (CEC) }
 

tests/tbf/tb0010.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0086.pp }
 {  shows runerror 216                                    OK 0.99.1 (CEC) }
 

tests/tbf/tb0011.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0087.pp }
 {  shows internal error 12 - no more SegFaults           OK 0.99.1 (FK) }
 

tests/tbf/tb0012.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0088.pp }
 {  internal error 12 or Runerror 216                     OK 0.99.1 (FK) }
 

tests/tbf/tb0013.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0089.pp }
 {  internal error 12 or Runerror 216                     OK 0.99.1 (FK) }
 

tests/tbf/tb0014.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0094.pp }
 { internal error when recordtype not found with case    OK 0.99.1 }
 

tests/tbf/tb0015.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0097.pp }
 { two errors in bp7 but not in FPC                      OK 0.99.6 (FK) }
 

tests/tbf/tb0016.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0100.pp }
 { a unit may only occure once in uses                   OK 0.99.6 (PM) }
 

tests/tbf/tb0017.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0101.pp }
 { no type checking for routines in interfance and       OK 0.99.1 (CEC) }
 

tests/tbf/tb0018.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0108.pp }
 { gives wrong error message                             OK 0.99.1 (PFV) }
 

tests/tbf/tb0019.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0109.pp }
 { syntax error not detected when using a set as pointer OK 0.99.1 (FK) }
 

tests/tbf/tb0020.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0110.pp }
 { SigSegv when using undeclared var in Case             OK 0.99.6 (PFV) }
 

tests/tbf/tb0021.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0117.pp }
 { internalerror 17 (and why is there an automatic float OK 0.99.6 (FK) }
 

tests/tbf/tb0022.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0127.pp }
 { problem with cdecl in implementation part             OK 0.99.7 (PFV) }
 

tests/tbf/tb0023.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0136.pp }
 { No types necessary in the procedure header            OK 0.99.6 (PFV) }
 

tests/tbf/tb0024.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0148.pp }
 { crash when setting function result of a declared but not yet implemented function in another function }
 

tests/tbf/tb0025.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0151.pp }
 { crash when using undeclared variable in withstatement OK 0.99.7 (PFV) }
 

tests/tbf/tb0026.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0153.pp }
 { Asm, indexing a local/para var should produce an error like tp7 OK 0.99.9 (PFV) }
 

tests/tbf/tb0027.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0155.pp }
 { Asm, Missing string return for asm functions }
 

tests/tbf/tb0028.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0157.pp }
 { Invalid compilation and also crashes                  OK 0.99.7 (PFV) }
 

tests/tbf/tb0029.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0158.pp }
 { Invalid boolean typecast                              OK 0.99.7 (PFV) }
 

tests/tbf/tb0030.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0161.pp }
 { internal error when trying to create a set with another OK 0.99.9 (PFV) }
 

tests/tbf/tb0031.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0164.pp }
 { crash when using undeclared array index in with statement OK 0.99.8 (PFV) }
 

tests/tbf/tb0032.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0166.pp }
 { forward type used in declaration crashes instead of error OK 0.99.9 (PFV) }
 

tests/tbf/tb0033.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0167.pp }
 { crash when declaring a procedure with same name as object OK 0.99.9 (PFV) }
 

tests/tbf/tb0034.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0168.pp }
 { set:=set+element is allowed (should be: set:=set+[element]) OK 0.99.9 (PFV) }
 

tests/tbf/tb0035.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0172.pp }
 { with with absolute seg:ofs should not be possible OK 0.99.9 (PM) }
 

tests/tbf/tb0036.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0173.pp }
 { secondbugs is parsed as asm, but should be normal pascalcode OK 0.99.9 (PFV) }
 

tests/tbf/tb0037.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0175.pp }
 { Asm, mov word,%eax should not be allowed without casting emits a warning (or error with range checking enabled)  OK 0.99.11 (PM) }
 

tests/tbf/tb0038.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0186.pp }
 { Erroneous array syntax is accepted.                   OK 0.99.9 (PFV) }
 

tests/tbf/tb0039.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0196.pp }
 { "function a;" is accepted (should require result type) OK 0.99.1 (PM) }
 

tests/tbf/tb0040.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0197.pp }
 { should produce an error: problem with c1:=c2<c3 where c? is OK 0.99.11 (PM) a comp type }
 

tests/tbf/tb0041.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0205.pp }
 { and parsing bugs, generates wrong code (tp7 gives parser error) OK 0.99.11 (PM) }
 

tests/tbf/tb0042.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0208.pp }
 { implicit conversion from boolean to longint should not be allowed }
 

tests/tbf/tb0043.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0219.pp }
 { wrong error message                                  OK 0.99.11 (PFV) }
 

tests/tbf/tb0044.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0230.pp }
 { several strange happen on the ln function: ln(0): no FPE and writeln can't write non numeric values Gives out an exception on compiling because of zero div OK 0.99.11 (PM) }
 

tests/tbf/tb0045.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0231.pp }
 { Problem with comments                                OK 0.99.11 (PFV) }
 

tests/tbf/tb0046.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0234.pp }
 { New with void pointer                                OK 0.99.11 (PM) }
 

tests/tbf/tb0047.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0242.pp }
 { Crash when passing a procedure to formal parameter   OK 0.99.11 (PM) }
 

tests/tbf/tb0048.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0245.pp }
 { assigning pointers to address of consts is allowed (refused by BP !) OK 0.99.13 (PFV) }
 

tests/tbf/tb0049.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0246.pp }
 { const para can be changed without error              OK 0.99.13 (PFV) }
 

tests/tbf/tb0050.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0248.pp }
 { Asm, Wrong assembler code accepted by new assembler reader OK 0.99.11 (PFV) }
 

tests/tbf/tb0051.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0265.pp }
 { nested proc with for-counter in other lex level      OK 0.99.13 (PFV) }
 

tests/tbf/tb0052.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0269.pp }
 { wrong linenumber for repeat until when type mismatch OK 0.99.12b (PM) }
 

tests/tbf/tb0053.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0272.pp }
 { No error issued if wrong parameter in function inside a second function OK 0.99.13 (PFV) }
 

tests/tbf/tb0054.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0281.pp }
 { dup id checking with property is wrong }
 

tests/tbf/tb0055.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0284.pp }
 { wrong file position with dup id in other unit        OK 0.99.13 (PFV) }
 

tests/tbf/tb0056.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0298.pp }
 { l1+l2:=l1+l2 gives no error                          OK 0.99.13 (PFV) }
 

tests/tbf/tb0057.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0300.pp }
 { crash if method on non existing object is parsed (form bugs 651) OK 0.99.13 (PFV) }
 

tests/tbf/tb0058.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0301.pp }
 { crash if destructor without object name is parsed    OK 0.99.13 (PFV) }
 

tests/tbf/tb0059.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0310.pp }
 { local and para dup are not detected                    OK 0.99.15 (FK) }
 

tests/tbf/tb0060.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0311.pp }
 { No dup id checking in variant records                  OK 0.99.15 (FK) }
 

tests/tbf/tb0061.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0314.pp }
 {  }
 

tests/tbf/tb0062.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0315.pp }
 {  }
 

tests/tbf/tb0063.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0320.pp }
 {  }
 

tests/tbf/tb0064.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0323.pp }
 {  }
 

tests/tbf/tb0065.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0324.pp }
 {  }
 

tests/tbf/tb0066.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0325.pp }
 {  }
 

tests/tbf/tb0067.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0326.pp }
 {  }
 

tests/tbf/tb0068.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0328.pp }
 {  }
 

tests/tbf/tb0069.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0342.pp }
 {  }
 

tests/tbf/tb0070.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0343.pp }
 {  }
 

tests/tbf/tb0071.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0345.pp }
 {  }
 

tests/tbf/tb0072.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0347.pp }
 {  }
 

tests/tbf/tb0073.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0349.pp }
 {  }
 

tests/tbf/tb0074.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { %OPT=-Sew }
 
 { Old file: tbf0351.pp }

tests/tbf/tb0075.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0352.pp }
 {  }
 

tests/tbf/tb0076.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0353.pp }
 {  }
 

tests/tbf/tb0077.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0354.pp }
 {  }
 

tests/tbf/tb0078.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0355.pp }
 {  }
 

tests/tbf/tb0079.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0356.pp }
 {  }
 

tests/tbf/tb0080.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0357.pp }
 {  }
 

tests/tbf/tb0081.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0358.pp }
 {  }
 

tests/tbf/tb0082.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0359.pp }
 {  }
 

tests/tbf/tb0083.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0360.pp }
 {  }
 

tests/tbf/tb0084.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0361.pp }
 {  }
 

tests/tbf/tb0085.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 
 type
   r=record

tests/tbf/tb0086.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 
 var
   i,j : longint;

tests/tbf/tb0087.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 {$mode objfpc}
 label l;
 

tests/tbf/tb0088.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 {$mode objfpc}
 label l;
 

tests/tbf/tb0089.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 {$mode objfpc}
 label l;
 

tests/tbf/tb0090.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 {$mode objfpc}
 uses
    sysutils;

tests/tbf/tb0091.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 {$mode objfpc}
 type
    tc1 = class

tests/tbf/tb0092.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 
 
 type

tests/tbf/tb0093.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 {$mode objfpc}
 type
    to1 = class

tests/tbf/tb0094.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbf0008.pp }
 {  tests the crash when decrementing constants         OK 0.9.2 }
 

tests/tbf/tb0095.pp

@@ -1,3 +1,4 @@
+{ %FAIL }
 { Old file: tbs0356.pp }
 {  }
 

tests/tbs/tb0133.pp

@@ -1,7 +1,7 @@
 { Old file: tbs0156a.pp }
 {  }
 
-uses tb0133;
+uses ub0133;
 
 begin
 end.

tests/tbs/tb0308.pp

@@ -1,5 +1,5 @@
 uses
-   tb0308;
+   ub0308;
 
   var
      r : tr;

tests/tbs/ub0308.pp

@@ -1,4 +1,4 @@
-unit tb0307;
+unit ub0308;
 
   interface