* testing for cdecl and virtual methods (should not compile)

tests/tbf/tb0130.pp

@@ -0,0 +1,17 @@
+{ %FAIL }
+
+{$mode objfpc}
+type
+ tmyclass = class
+  { you should not be able to have virtual methods which 
+    are noted as cdecl.
+  }
+  procedure myroutine;virtual;cdecl;
+ end;
+
+procedure tmyclass.myroutine;cdecl;
+begin
+end;
+
+Begin
+end.