Add new test

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@24888 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/gcc.c-torture/ChangeLog b/gcc/testsuite/gcc.c-torture/ChangeLog
index 32f55ab..abecc17 100644 (file)
--- a/gcc/testsuite/gcc.c-torture/ChangeLog
+++ b/gcc/testsuite/gcc.c-torture/ChangeLog
@@ -1,6 +1,6 @@
 1999-01-27  Michael Meissner  <meissner@cygnus.com>
 
-       * execute/990127-1.c: New test.
+       * execute/990127-{1,2}.c: New tests.
 
 1998-12-14  Nick Clifton  <nickc@cygnus.com>
 

diff --git a/gcc/testsuite/gcc.c-torture/execute/990127-2.c b/gcc/testsuite/gcc.c-torture/execute/990127-2.c
new file mode 100644 (file)
index 0000000..0d0f495
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/990127-2.c
@@ -0,0 +1,20 @@
+void
+fpEq (double x, double y)
+{
+  if (x != y)
+    abort ();
+}
+
+void
+fpTest (double x, double y)
+{
+  double result1 = (35.7 * 100.0) / 45.0;
+  double result2 = (x * 100.0) / y;
+  fpEq (result1, result2);
+}
+
+main ()
+{
+  fpTest (35.7, 45.0);
+  exit (0);
+}