mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-02 17:50:16 +02:00
parent
d0910b5ac8
commit
b1f7fb4ba1
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -16563,6 +16563,7 @@ tests/webtbf/tw2414.pp svneol=native#text/plain
|
||||
tests/webtbf/tw24184.pp svneol=native#text/plain
|
||||
tests/webtbf/tw24428.pp svneol=native#text/plain
|
||||
tests/webtbf/tw24428a.pp svneol=native#text/plain
|
||||
tests/webtbf/tw24434.pp svneol=native#text/pascal
|
||||
tests/webtbf/tw24453.pp svneol=native#text/pascal
|
||||
tests/webtbf/tw24495.pp svneol=native#text/pascal
|
||||
tests/webtbf/tw24588.pp svneol=native#text/pascal
|
||||
|
13
tests/webtbf/tw24434.pp
Normal file
13
tests/webtbf/tw24434.pp
Normal file
@ -0,0 +1,13 @@
|
||||
{ %fail }
|
||||
function f(s: string): string;
|
||||
begin
|
||||
f := '''' + s + '''';
|
||||
end;
|
||||
|
||||
function f(s: string): integer;
|
||||
begin
|
||||
Val(s,f);
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
Loading…
Reference in New Issue
Block a user