diff options
author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-09-22 17:55:36 +0000 |
---|---|---|
committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-09-22 17:55:36 +0000 |
commit | 6f6f7ddf3cc6bfb02db7dd465956fbe10881c0df (patch) | |
tree | de4117b994c253b3ab0e1e2b943697d40dedb403 /packages/fcl-passrc/tests/tcresolvegenerics.pas | |
parent | bae5a577ab2e006306f5606aecbf931428a23bdc (diff) | |
download | fpc-6f6f7ddf3cc6bfb02db7dd465956fbe10881c0df.tar.gz |
fcl-passrc: fixed stop on implementation keyword in program, fixed parsing attributes in class type section
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43057 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-passrc/tests/tcresolvegenerics.pas')
-rw-r--r-- | packages/fcl-passrc/tests/tcresolvegenerics.pas | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/packages/fcl-passrc/tests/tcresolvegenerics.pas b/packages/fcl-passrc/tests/tcresolvegenerics.pas index eb8343be9c..116d604641 100644 --- a/packages/fcl-passrc/tests/tcresolvegenerics.pas +++ b/packages/fcl-passrc/tests/tcresolvegenerics.pas @@ -1974,16 +1974,14 @@ procedure TTestResolveGenerics.TestGenMethod_VirtualFail; begin StartProgram(false); Add([ - 'procedure Fly;', - ' generic procedure Run<T>(a: T);', - ' begin', + 'type', + ' TObject = class', + ' generic procedure Run<T>(a: T); virtual; abstract;', ' end;', 'begin', - ' Run<boolean>(true);', - 'end;', - 'begin', '']); - CheckResolverException('Type parameters not allowed on nested procedure',nTypeParamsNotAllowedOnX); + CheckResolverException('virtual, dynamic or message methods cannot have type parameters', + nXMethodsCannotHaveTypeParams); end; initialization |