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

+ check for internal error 8954 when passing arrays[1..1] as value

Browse Source 
parameter
This commit is contained in:
Jonas Maebe 2000-09-18 12:38:40 +00:00
parent 857149a109
commit a5dd1abd5f
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/ts/ts010032.pp Normal file
View File

@ -0,0 +1,12 @@
type ta = array[1..1,1..100] of integer;
procedure t(a: ta);
begin
end;
var a: ta;
begin
t(a);
end.