mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 17:30:25 +02:00
- Remove tw3780.pp due to disabling of m_gpc.
git-svn-id: trunk@6524 -
This commit is contained in:
parent
c95cf176f4
commit
9374084be3
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -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
|
||||
|
@ -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.
|
Loading…
Reference in New Issue
Block a user