+ add test for Mantis #33635 which was fixed by r38856

git-svn-id: trunk@38857 -

.gitattributes

@@ -16109,6 +16109,7 @@ tests/webtbs/tw33542.pp svneol=native#text/pascal
 tests/webtbs/tw33548.pp svneol=native#text/plain
 tests/webtbs/tw3356.pp svneol=native#text/plain
 tests/webtbs/tw3360.pp svneol=native#text/plain
+tests/webtbs/tw33635.pp svneol=native#text/pascal
 tests/webtbs/tw3364.pp svneol=native#text/plain
 tests/webtbs/tw3366.pp svneol=native#text/plain
 tests/webtbs/tw3402.pp svneol=native#text/plain

tests/webtbs/tw33635.pp

@@ -0,0 +1,9 @@
+program tw33635;
+var
+  x,y: double;
+begin
+  x := 1e20;
+  writeln('x=',x);
+  y := frac(x);
+  writeln('frac(x)=',y);
+end.