Browse Source

- Remove tw3780.pp due to disabling of m_gpc.

git-svn-id: trunk@6524 -
daniel 18 years ago
parent
commit
9374084be3
2 changed files with 0 additions and 22 deletions
  1. 0 1
      .gitattributes
  2. 0 21
      tests/webtbs/tw3780.pp

+ 0 - 1
.gitattributes

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

+ 0 - 21
tests/webtbs/tw3780.pp

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