+ Readd test, now disabled.

git-svn-id: trunk@6525 -

.gitattributes

@@ -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

tests/webtbs/tw3780.pp

@@ -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: [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.