summaryrefslogtreecommitdiff
path: root/tests/webtbs/tw18567.pp
diff options
context:
space:
mode:
authorjonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>2011-03-09 20:17:08 +0000
committerjonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>2011-03-09 20:17:08 +0000
commitd07326db4e21881051c1796c2134e2d0e0d74063 (patch)
tree3348bb1d6cef51ba0333886649dab3646861e2af /tests/webtbs/tw18567.pp
parentb8b2feea347a129283074aa6cdd90392e42d4288 (diff)
downloadfpc-d07326db4e21881051c1796c2134e2d0e0d74063.tar.gz
* corrected test name
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17110 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbs/tw18567.pp')
-rw-r--r--tests/webtbs/tw18567.pp17
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/webtbs/tw18567.pp b/tests/webtbs/tw18567.pp
new file mode 100644
index 0000000000..b2018a88b8
--- /dev/null
+++ b/tests/webtbs/tw18567.pp
@@ -0,0 +1,17 @@
+program tw18567;
+
+{$mode delphi}
+
+type
+ TSomeRecord <TData> = record
+ data: TData;
+ class operator Explicit(a: TData) : TSomeRecord;
+ end;
+
+ class operator TSomeRecord <TData>.Explicit (a: TData): TSomeRecord;
+ begin
+
+ end;
+
+begin
+end. \ No newline at end of file