Explorar el Código

+ added test for Mantis #30498 which is working now that array constructors are supported :)

git-svn-id: trunk@36193 -
svenbarth hace 8 años
padre
commit
23ec3db057
Se han modificado 2 ficheros con 16 adiciones y 0 borrados
  1. 1 0
      .gitattributes
  2. 15 0
      tests/webtbs/tw30498.pp

+ 1 - 0
.gitattributes

@@ -15410,6 +15410,7 @@ tests/webtbs/tw30431.pp svneol=native#text/plain
 tests/webtbs/tw30443.pp svneol=native#text/plain
 tests/webtbs/tw3045.pp svneol=native#text/plain
 tests/webtbs/tw3048.pp svneol=native#text/plain
+tests/webtbs/tw30498.pp svneol=native#text/pascal
 tests/webtbs/tw30522.pp svneol=native#text/plain
 tests/webtbs/tw30524a.pp svneol=native#text/pascal
 tests/webtbs/tw30524b.pp svneol=native#text/pascal

+ 15 - 0
tests/webtbs/tw30498.pp

@@ -0,0 +1,15 @@
+{ %NORUN }
+
+program tw30498;
+
+{$IFDEF FPC}
+{$MODE DELPHI}
+{$ENDIF}
+
+  procedure Test(const AItems: TArray<string>);
+  begin
+  end;
+
+begin
+  Test(['foo', 'bar']);
+end.