aboutsummaryrefslogtreecommitdiff
path: root/test-suite/success
diff options
context:
space:
mode:
authorherbelin2012-01-05 23:44:34 +0000
committerherbelin2012-01-05 23:44:34 +0000
commit134f8741e0787d37bfdc082a5e3dddd2e1a3e62f (patch)
tree49dbefc892e405043cb942ce0f84a730a027803e /test-suite/success
parentf629bd63917ca1fdacf5a3da4ee2ac7f3cba7398 (diff)
Backtracking on r14876 (fix for bug #2267): extra scopes might be
useful in the presence of coercions to Funclass. Fixed the bug differently. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14880 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success')
-rw-r--r--test-suite/success/Scopes.v7
1 files changed, 7 insertions, 0 deletions
diff --git a/test-suite/success/Scopes.v b/test-suite/success/Scopes.v
index 55d8343efa..5b37dbd4e1 100644
--- a/test-suite/success/Scopes.v
+++ b/test-suite/success/Scopes.v
@@ -6,3 +6,10 @@ Module A.
Definition opp := Zopp.
End A.
Check (A.opp 3).
+
+(* Test extra scopes to be used in the presence of coercions *)
+
+Record B := { f :> Z -> Z }.
+Variable a:B.
+Arguments Scope a [Z_scope].
+Check a 0.