diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-06-27 12:59:46 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-06-27 12:59:46 +0000 |
| commit | 58bc7cc23e1634012f4ddc0fd2408e635d40fccd (patch) | |
| tree | 6407dbc068cd416038ee90c3037dfb0eb63260c4 /tests/tbf | |
| parent | 867831e5bbb3e96ac080cd274ebb1d218803de71 (diff) | |
| download | fpc-58bc7cc23e1634012f4ddc0fd2408e635d40fccd.tar.gz | |
* disallow placing fields after method/property definitions, because this
can create ambiguities for the parser in case the field names also exist
as modifiers (TP- and Delphi-compatible, mantis #13971) + tests
* fixed tests that broke because of this change
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13334 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/tbf')
| -rw-r--r-- | tests/tbf/tb0216.pp | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/tbf/tb0216.pp b/tests/tbf/tb0216.pp new file mode 100644 index 0000000000..0dc4411611 --- /dev/null +++ b/tests/tbf/tb0216.pp @@ -0,0 +1,19 @@ +{ %fail } + +{ Old file: tbs0133.pp } +{ object type declaration not 100% compatibile with TP7 } + +type + t=object + f : longint; + procedure p; + g : longint; { Not allowed in BP7 } + end; + + procedure t.p; + begin + end; + + begin + end. + |