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

* some special array constructor cases

Browse Source
This commit is contained in:
peter 2002-12-20 16:35:59 +00:00
parent f8a22cb77e
commit 420fb26f38
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/tbs/tb0436.pp Normal file
View File

@ -0,0 +1,15 @@
{$mode objfpc}
procedure pext(a:array of extended);
begin
end;
procedure p(a:array of const);
begin
end;
begin
p([0.0]);
p([pi]);
pext([0.0]);
end.