4 files changed, 59 insertions, 0 deletions
diff --git a/test-suite/output/QArithSyntax.out b/test-suite/output/QArithSyntax.out
new file mode 100644
index 0000000000..6bc04f1cef
--- /dev/null
+++ b/test-suite/output/QArithSyntax.out
@@ -0,0 +1,14 @@
+eq_refl : 102e-2 = 102e-2
+     : 102e-2 = 102e-2
+eq_refl : 102e-1 = 102e-1
+     : 102e-1 = 102e-1
+eq_refl : 1020 = 1020
+     : 1020 = 1020
+eq_refl : 102 = 102
+     : 102 = 102
+eq_refl : 102e-2 = 102e-2
+     : 102e-2 = 102e-2
+eq_refl : -1e-4 = -1e-4
+     : -1e-4 = -1e-4
+eq_refl : -50e-2 = -50e-2
+     : -50e-2 = -50e-2
diff --git a/test-suite/output/QArithSyntax.v b/test-suite/output/QArithSyntax.v
new file mode 100644
index 0000000000..2f2ee0134a
--- /dev/null
+++ b/test-suite/output/QArithSyntax.v
@@ -0,0 +1,9 @@
+Require Import QArith.
+Open Scope Q_scope.
+Check (eq_refl : 1.02 = 102 # 100).
+Check (eq_refl : 1.02e1 = 102 # 10).
+Check (eq_refl : 1.02e+03 = 1020).
+Check (eq_refl : 1.02e+02 = 102 # 1).
+Check (eq_refl : 10.2e-1 = 1.02).
+Check (eq_refl : -0.0001 = -1 # 10000).
+Check (eq_refl : -0.50 = - 50 # 100).
diff --git a/test-suite/output/RealSyntax.out b/test-suite/output/RealSyntax.out
index e6f7556d96..2d877bd813 100644
--- a/test-suite/output/RealSyntax.out
+++ b/test-suite/output/RealSyntax.out
@@ -2,3 +2,17 @@
      : R
 (-31)%R
      : R
+eq_refl : 102e-2 = 102e-2
+     : 102e-2 = 102e-2
+eq_refl : 102e-1 = 102e-1
+     : 102e-1 = 102e-1
+eq_refl : 102e1 = 102e1
+     : 102e1 = 102e1
+eq_refl : 102 = 102
+     : 102 = 102
+eq_refl : 102e-2 = 102e-2
+     : 102e-2 = 102e-2
+eq_refl : -1e-4 = -1e-4
+     : -1e-4 = -1e-4
+eq_refl : -50e-2 = -50e-2
+     : -50e-2 = -50e-2
diff --git a/test-suite/output/RealSyntax.v b/test-suite/output/RealSyntax.v
index 44e8c7a50c..cb3bce70d4 100644
--- a/test-suite/output/RealSyntax.v
+++ b/test-suite/output/RealSyntax.v
@@ -1,3 +1,25 @@
 Require Import Reals.Rdefinitions.
 Check 32%R.
 Check (-31)%R.
+
+Open Scope R_scope.
+
+Check (eq_refl : 1.02 = IZR 102 / IZR (Z.pow_pos 10 2)).
+Check (eq_refl : 1.02e1 = IZR 102 / IZR (Z.pow_pos 10 1)).
+Check (eq_refl : 1.02e+03 = IZR 102 * IZR (Z.pow_pos 10 1)).
+Check (eq_refl : 1.02e+02 = IZR 102).
+Check (eq_refl : 10.2e-1 = 1.02).
+Check (eq_refl : -0.0001 = IZR (-1) / IZR (Z.pow_pos 10 4)).
+Check (eq_refl : -0.50 = IZR (-50) / IZR (Z.pow_pos 10 2)).
+
+Require Import Reals.
+
+Goal 254e3 = 2540 * 10 ^ 2.
+ring.
+Qed.
+
+Require Import Psatz.
+
+Goal 254e3 = 2540 * 10 ^ 2.
+lra.
+Qed.