paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 10:37:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: added test local var inits

Browse Source
This commit is contained in:
mattias 2019-06-13 08:06:12 +00:00
parent 849d604c04
commit 38894cfe96
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/packages/fcl-passrc/tests/tcresolver.pas
View File

@ -450,6 +450,7 @@ type
Procedure TestProc_TypeCastFunctionResult;
Procedure TestProc_ImplicitCalls;
Procedure TestProc_Absolute;
Procedure TestProc_LocalInit;
// anonymous procs
Procedure TestAnonymousProc_Assign;
@ -7346,6 +7347,25 @@ begin
'begin',
'end;',
'begin']);
ParseProgram;
end;
procedure TTestResolver.TestProc_LocalInit;
begin
StartProgram(false);
Add([
'type TBytes = array of byte;',
'procedure DoIt;',
'const c = 4;',
'var',
' w: word = c;',
' b: byte = 1+c;',
' p: pointer = nil;',
' buf: TBytes = nil;',
'begin',
'end;',
'begin']);
ParseProgram;
end;
procedure TTestResolver.TestAnonymousProc_Assign;