2
0
Эх сурвалжийг харах

+ added

git-svn-id: trunk@3198 -
Jonas Maebe 19 жил өмнө
parent
commit
74f9acd0d8
2 өөрчлөгдсөн 16 нэмэгдсэн , 0 устгасан
  1. 1 0
      .gitattributes
  2. 15 0
      tests/tbs/tb0500.pp

+ 1 - 0
.gitattributes

@@ -5364,6 +5364,7 @@ tests/tbs/tb0497b.pp -text
 tests/tbs/tb0497c.pp -text
 tests/tbs/tb0498.pp svneol=native#text/plain
 tests/tbs/tb0499.pp svneol=native#text/plain
+tests/tbs/tb0500.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain

+ 15 - 0
tests/tbs/tb0500.pp

@@ -0,0 +1,15 @@
+{ %OPT=-Seh }
+program test;
+uses math;
+
+{ compiler claims that math isn't used, while the ** operator is used from it }
+
+function f(r: real; i: integer): int64;
+begin
+  f:= trunc(r**i);
+end;
+
+begin
+  writeln(f(2.0,2));
+end.
+