+ test for last commit

git-svn-id: trunk@45773 -

.gitattributes

@@ -16502,6 +16502,7 @@ tests/webtbf/tw3680.pp svneol=native#text/plain
 tests/webtbf/tw36975.pp svneol=native#text/pascal
 tests/webtbf/tw3716.pp svneol=native#text/plain
 tests/webtbf/tw37272b.pp svneol=native#text/pascal
+tests/webtbf/tw37303.pp -text svneol=native#text/pascal
 tests/webtbf/tw3738.pp svneol=native#text/plain
 tests/webtbf/tw3740.pp svneol=native#text/plain
 tests/webtbf/tw3790.pp svneol=native#text/plain

tests/webtbf/tw37303.pp

@@ -0,0 +1,37 @@
+{ %fail }
+program gen_default;
+
+{$mode delphi}
+
+uses SysUtils;
+
+type
+
+  TBla = record
+    Bla: Integer;
+  end;
+
+  //TBla = array[1..4] of Integer;
+
+  //TBla = type Integer;
+
+
+procedure SetValue<T>(out v: T; const aValue: T = Default(T));
+begin
+  v := aValue;
+end;
+
+procedure Test;
+var
+  Bla: TBla;
+begin
+  SetValue<TBla>(Bla);
+  WriteLn(Format('Bla = (Bla: %d)', [Bla.Bla]));
+  //WriteLn(Format('Bla = (%d, %d, %d, %d)', [Bla[1], Bla[2], Bla[3], Bla[4]]));
+  //WriteLn('Bla = ', Bla);
+end;
+
+begin
+  Test;
+end.
+