Compute.ConcreteNew: add missing case for variant functions

Also adding a test case in the test suite for this.

1 files changed, 7 insertions, 0 deletions

diff --git a/testsuite/compiler/compute/Variants.gf b/testsuite/compiler/compute/Variants.gf
new file mode 100644
index 000000000..e77b84469
--- /dev/null
+++ b/testsuite/compiler/compute/Variants.gf
@@ -0,0 +1,7 @@
+resource Variants = {
+  oper
+    hello = r.f "hello";
+    r = { f:Str->Str = (id|dup) };
+    id : Str->Str = \ s -> s;
+    dup : Str->Str = \ s -> s++s;
+}