From 8493fd9be93f99cd8579f4390e88ed6d107505bf Mon Sep 17 00:00:00 2001 From: peter Date: Tue, 12 Dec 2000 19:54:19 +0000 Subject: [PATCH] * more webbugs added --- tests/webtbf/tw1270.pp | 12 ++++++++++++ tests/webtbs/tw1181.pp | 5 +++++ tests/webtbs/tw1284.pp | 9 +++++++++ tests/webtbs/tw1286.pp | 7 +++++++ tests/webtbs/uw1181.inc | 3 +++ 5 files changed, 36 insertions(+) create mode 100644 tests/webtbf/tw1270.pp create mode 100644 tests/webtbs/tw1181.pp create mode 100644 tests/webtbs/tw1284.pp create mode 100644 tests/webtbs/tw1286.pp create mode 100644 tests/webtbs/uw1181.inc diff --git a/tests/webtbf/tw1270.pp b/tests/webtbf/tw1270.pp new file mode 100644 index 0000000000..63ad080bcc --- /dev/null +++ b/tests/webtbf/tw1270.pp @@ -0,0 +1,12 @@ +type l = record + i:longint; + end; + + +var l2 : l; + y : Longint; + x : Boolean; + +begin + x:=l2>y; +end. diff --git a/tests/webtbs/tw1181.pp b/tests/webtbs/tw1181.pp new file mode 100644 index 0000000000..011630c8a2 --- /dev/null +++ b/tests/webtbs/tw1181.pp @@ -0,0 +1,5 @@ +{$define ok} +{$ifdef ok}{$i uw1181.inc}{$endif} +begin + p; +end. \ No newline at end of file diff --git a/tests/webtbs/tw1284.pp b/tests/webtbs/tw1284.pp new file mode 100644 index 0000000000..a8f142eef5 --- /dev/null +++ b/tests/webtbs/tw1284.pp @@ -0,0 +1,9 @@ +{ %OPT=-Seh -vh } +{$mode objfpc} + function f(p: word): boolean; + begin + result := (p mod 10 = 0); + end; +begin + f(0) +end. diff --git a/tests/webtbs/tw1286.pp b/tests/webtbs/tw1286.pp new file mode 100644 index 0000000000..000c4787de --- /dev/null +++ b/tests/webtbs/tw1286.pp @@ -0,0 +1,7 @@ +{$ifdef fpc}{$mode objfpc}{$endif} +uses sysutils; + var S:String; + par:array [0..1] of TVarRec; { array of const here is illegal ! } +begin + writeln(format(S, par)); +end. diff --git a/tests/webtbs/uw1181.inc b/tests/webtbs/uw1181.inc new file mode 100644 index 0000000000..20f18ea747 --- /dev/null +++ b/tests/webtbs/uw1181.inc @@ -0,0 +1,3 @@ +procedure p; +begin +end;