mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 23:59:30 +02:00
* new test
git-svn-id: trunk@6577 -
This commit is contained in:
parent
6588b2cb57
commit
42da0e5688
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6235,6 +6235,7 @@ tests/tbs/tb0525.pp svneol=native#text/plain
|
||||
tests/tbs/tb0526.pp -text
|
||||
tests/tbs/tb0527.pp svneol=native#text/plain
|
||||
tests/tbs/tb0528.pp svneol=native#text/x-pascal
|
||||
tests/tbs/tb0530.pp svneol=native#text/plain
|
||||
tests/tbs/ub0060.pp svneol=native#text/plain
|
||||
tests/tbs/ub0069.pp svneol=native#text/plain
|
||||
tests/tbs/ub0119.pp svneol=native#text/plain
|
||||
|
15
tests/tbs/tb0530.pp
Normal file
15
tests/tbs/tb0530.pp
Normal file
@ -0,0 +1,15 @@
|
||||
type
|
||||
tset1 = set of 0..7;
|
||||
tset2 = set of 0..15;
|
||||
|
||||
procedure p(s : tset1);overload;
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure p(s : tset2);overload;
|
||||
begin
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
Loading…
Reference in New Issue
Block a user