diff --git a/.gitattributes b/.gitattributes
index d87a9c0dfc..75042794ce 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -476,6 +476,8 @@ components/codetools/examples/scanexamples/modemacpas.pas svneol=native#text/pla
 components/codetools/examples/scanexamples/nestedclasses.pas svneol=native#text/plain
 components/codetools/examples/scanexamples/objctest1.pas svneol=native#text/plain
 components/codetools/examples/scanexamples/overloadedfunction.pas svneol=native#text/plain
+components/codetools/examples/scanexamples/publishedmethods1.pas svneol=native#text/plain
+components/codetools/examples/scanexamples/publishedmethods2.pas svneol=native#text/plain
 components/codetools/examples/scanexamples/publishedvars.pas svneol=native#text/plain
 components/codetools/examples/scanexamples/recordsexample.pas svneol=native#text/plain
 components/codetools/examples/scanexamples/resourcetest1.pas svneol=native#text/plain
diff --git a/components/codetools/examples/scanexamples/publishedmethods1.pas b/components/codetools/examples/scanexamples/publishedmethods1.pas
new file mode 100644
index 0000000000..a5d4f4f8b5
--- /dev/null
+++ b/components/codetools/examples/scanexamples/publishedmethods1.pas
@@ -0,0 +1,33 @@
+unit publishedmethods1; 
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, PublishedMethods2;
+
+type
+  TMyMethodWithAnInteger = procedure (x:T) of object;
+  T = char;
+  TMyMethodWithAnChar = procedure (x:T) of object;
+
+  { TMyClass }
+  {$M+}
+  TMyClass = class
+  published
+    procedure F(x: T);
+  end;
+  {$M-}
+
+implementation
+
+{ TMyClass }
+
+procedure TMyClass.F(x: T);
+begin
+
+end;
+
+end.
+
diff --git a/components/codetools/examples/scanexamples/publishedmethods2.pas b/components/codetools/examples/scanexamples/publishedmethods2.pas
new file mode 100644
index 0000000000..03bfcdcb80
--- /dev/null
+++ b/components/codetools/examples/scanexamples/publishedmethods2.pas
@@ -0,0 +1,16 @@
+unit PublishedMethods2;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+  T = integer;
+
+implementation
+
+end.
+