aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2020-07-17 17:00:00 +0200
committerEmilio Jesus Gallego Arias2020-07-17 17:00:00 +0200
commite04e12c60fe90735c22542bfd6b0b94f4b4cbc1e (patch)
tree20b8bf7cfe652b51a1d0ed96f5482f961dcc8b4d /test-suite
parentf54bc666c62ad9a66067cb486816cdfc68c2946d (diff)
parent7bc3fb4def33b846b7ac01efe7e42ae6617d46d7 (diff)
Merge PR #12631: Fix record pattern interpretation with implicit arguments
Reviewed-by: herbelin
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/bugs/closed/bug_12534.v9
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_12534.v b/test-suite/bugs/closed/bug_12534.v
new file mode 100644
index 0000000000..a55515feb6
--- /dev/null
+++ b/test-suite/bugs/closed/bug_12534.v
@@ -0,0 +1,9 @@
+Record C {PROP: Prop} (P : PROP) : Type := { c : unit}.
+Check fun '{|c:=x|} => tt. (* Fine *)
+Arguments Build_C {_ _} _.
+Check fun '(Build_C _) => tt. (* Works. Note: just 1 argument! *)
+Check fun '{|c:=x|} => tt.
+(* Error: The constructor @Build_C (in type @C) expects 1 argument. *)
+
+Set Asymmetric Patterns.
+Check fun '{|c:=x|} => tt.