- Remove tw3780.pp due to disabling of m_gpc.

git-svn-id: trunk@6524 -
This commit is contained in:
daniel 2007-02-17 10:22:19 +00:00
parent c95cf176f4
commit 9374084be3
2 changed files with 0 additions and 22 deletions

1
.gitattributes vendored
View File

@ -7782,7 +7782,6 @@ 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/plain
tests/webtbs/tw3782.pp svneol=native#text/plain
tests/webtbs/tw3796.pp svneol=native#text/plain
tests/webtbs/tw3805.pp svneol=native#text/plain

View File

@ -1,21 +0,0 @@
{ Source provided for Free Pascal Bug Report 3780 }
{ Submitted by "Adriaan van Os" on 2005-03-13 }
{ e-mail: 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.