Explorar el Código

+ Added test for Mantis #20456. The issue itself was fixed in the meantime.

git-svn-id: trunk@28035 -
sergei hace 11 años
padre
commit
4b5736a381
Se han modificado 3 ficheros con 25 adiciones y 0 borrados
  1. 2 0
      .gitattributes
  2. 11 0
      tests/webtbs/tw20456.pp
  3. 12 0
      tests/webtbs/uw20456.pp

+ 2 - 0
.gitattributes

@@ -13657,6 +13657,7 @@ tests/webtbs/tw20407.pp svneol=native#text/pascal
 tests/webtbs/tw2041.pp svneol=native#text/plain
 tests/webtbs/tw20421.pp svneol=native#text/pascal
 tests/webtbs/tw2045.pp svneol=native#text/plain
+tests/webtbs/tw20456.pp svneol=native#text/plain
 tests/webtbs/tw2046a.pp svneol=native#text/plain
 tests/webtbs/tw20527.pp svneol=native#text/plain
 tests/webtbs/tw20557.pp svneol=native#text/pascal
@@ -14714,6 +14715,7 @@ tests/webtbs/uw19701.pas svneol=native#text/plain
 tests/webtbs/uw19851.pp svneol=native#text/pascal
 tests/webtbs/uw2004.inc svneol=native#text/plain
 tests/webtbs/uw2040.pp svneol=native#text/plain
+tests/webtbs/uw20456.pp svneol=native#text/plain
 tests/webtbs/uw20909a.pas svneol=native#text/pascal
 tests/webtbs/uw20909b.pas svneol=native#text/pascal
 tests/webtbs/uw20940.pp svneol=native#text/pascal

+ 11 - 0
tests/webtbs/tw20456.pp

@@ -0,0 +1,11 @@
+{ %target=win32,win64,wince }
+{ %norun }
+
+program tw20456;
+
+ uses uw20456;
+
+ begin
+   Dummy;
+ end.
+ 

+ 12 - 0
tests/webtbs/uw20456.pp

@@ -0,0 +1,12 @@
+unit uw20456;
+
+interface
+
+procedure Dummy;
+
+implementation
+
+procedure Dummy; external 'who_cares' name '?Dummy';
+
+end.
+