paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* flag bugs that will not be fixed in 1.0.x to be 1.1 only

Browse Source
This commit is contained in:
peter 2002-01-19 14:21:37 +00:00
parent 869ca12ddb
commit 60a3de5d59
8 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/tbf/tb0003.pp
View File

@ -1,13 +0,0 @@
{ %FAIL }
{ Old file: tbf0036.pp }
{ assigning a single character to array of char ?OK 0.9.9 }
program bug0036;
{Discovered by Daniel Mantione.}
var a:array[0..31] of char;
begin
a:=' '; {Incorrect Pascal statement, but why a protection error?}
end.

2
tests/tbs/tb0379.pp → tests/tbf/tb0117.pp
View File

@ -1,3 +1,5 @@
{ %fail }
{$mode delphi} {$mode delphi}
var var

1
tests/tbs/tb0150.pp
View File

@ -1,4 +1,5 @@
{ %OPT=-Un } { %OPT=-Un }
{ %RECOMPILE }
{ Old file: tbs0180.pp } { Old file: tbs0180.pp }
{ problem for units with names different from file name should be accepted with -Un !! Solved, but you still need to use the file name from other units OK 0.99.9 (PM) } { problem for units with names different from file name should be accepted with -Un !! Solved, but you still need to use the file name from other units OK 0.99.9 (PM) }

2
tests/tbs/tb0357.pp
View File

@ -1,3 +1,5 @@
{ %version=1.1 }
{$ifdef fpc}{$MODE OBJFPC}{$endif} {$ifdef fpc}{$MODE OBJFPC}{$endif}
uses sysutils; uses sysutils;
var var

2
tests/tbs/tb0380.pp
View File

@ -1,3 +1,5 @@
{ %version=1.1 }
uses ub0380; uses ub0380;
procedure p1(s:string);overload; procedure p1(s:string);overload;
begin begin

2
tests/tbs/tb0386.pp
View File

@ -1,3 +1,5 @@
{ %version=1.1 }
{$ifdef fpc}{$mode objfpc}{$endif} {$ifdef fpc}{$mode objfpc}{$endif}
uses ub0386; uses ub0386;
type type

2
tests/tbs/tb0391.pp
View File

@ -1,3 +1,5 @@
{ %version=1.1 }
{$ifdef fpc}{$mode objfpc}{$endif} {$ifdef fpc}{$mode objfpc}{$endif}
uses ub0391; uses ub0391;

3
tests/webtbs/tw1677.pp
View File

@ -9,11 +9,14 @@ var r:trec; s:ansistring;
begin begin
s:=chr(ord('A')+random(26)); s:=chr(ord('A')+random(26));
r.s:=s; r.s:=s;
writeln('init');
if plongint(pointer(s)-4)^<>3 then if plongint(pointer(s)-4)^<>3 then
halt(1); halt(1);
writeln('p1()');
p1(r); p1(r);
if plongint(pointer(s)-4)^<>3 then if plongint(pointer(s)-4)^<>3 then
halt(1); halt(1);
writeln('p2()');
p2(r); p2(r);
if plongint(pointer(s)-4)^<>3 then if plongint(pointer(s)-4)^<>3 then
halt(1); halt(1);