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

+ Readd test, now disabled.

Browse Source 
git-svn-id: trunk@6525 -
This commit is contained in:
daniel 2007-02-17 15:33:01 +00:00
parent 9374084be3
commit a1889e3396
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7782,6 +7782,7 @@ tests/webtbs/tw3768.pp svneol=native#text/plain
tests/webtbs/tw3774.pp svneol=native#text/plain
tests/webtbs/tw3777.pp svneol=native#text/plain
tests/webtbs/tw3778.pp svneol=native#text/plain
tests/webtbs/tw3780.pp svneol=native#text/x-pascal
tests/webtbs/tw3782.pp svneol=native#text/plain
tests/webtbs/tw3796.pp svneol=native#text/plain
tests/webtbs/tw3805.pp svneol=native#text/plain

24
tests/webtbs/tw3780.pp Normal file
View File

@ -0,0 +1,24 @@
{ %KNOWNCOMPILEERROR }
{Test disabled because mode gpc is disabled.}
{ Source provided for Free Pascal Bug Report 3780 }
{ Submitted by "Adriaan van Os" on 20050313 }
{ email: fpc@microbizz.nl }
{$mode gpc}
program func;
type tfun = function( x: real): real;
function f( x: real): real;
begin
f:= x
end;
function fsum( fun: tfun; x1, x2: real): real;
begin
fsum:= fun( x1) + fun( x2)
end;
begin
writeln( fsum( f, 1.0, 2.0))
end.