summaryrefslogtreecommitdiff
path: root/test-suite/output/Coercions.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/output/Coercions.v')
-rw-r--r--test-suite/output/Coercions.v9
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/output/Coercions.v b/test-suite/output/Coercions.v
index c88b143f..0e84bf39 100644
--- a/test-suite/output/Coercions.v
+++ b/test-suite/output/Coercions.v
@@ -13,3 +13,12 @@ End testSection.
Record foo : Type := {D :> nat -> nat}.
Check (fun (x : foo) (n : nat) => x n).
+
+(* Check both removal of coercions with target Funclass and mixing
+ string and numeral scopes *)
+
+Require Import String.
+Open Scope string_scope.
+Inductive PAIR := P (s:string) (n:nat).
+Coercion P : string >-> Funclass.
+Check ("1" 0).