diff --git a/.gitattributes b/.gitattributes
index 26aa6f5591..5b6819aa19 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw3780.pp b/tests/webtbs/tw3780.pp
new file mode 100644
index 0000000000..a859f52677
--- /dev/null
+++ b/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: 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.