Merge branch 'issue/3757'

* issue/3757:
  Update tests/reg_issue3757/reg_issue3757.fz
  be/jvm: fix check condition in drop

src/dev/flang/be/jvm/Choices.java

@@ -788,12 +788,11 @@ Expr tag(JVM jvm, int s, Expr value, int newcl, int tagNum)
                                        fn,
                                        ft));
             }
-          res = res.is(_types.javaType(newcl));
           break;
         }
       default: throw new Error("Unexpected choice kind in tag of JVM backend: " + kind(newcl));
       }
-    return res;
+    return res.is(_types.javaType(newcl));
   }
 
 

tests/reg_issue3757/Makefile

@@ -0,0 +1,25 @@
+# This file is part of the Fuzion language implementation.
+#
+# The Fuzion language implementation is free software: you can redistribute it
+# and/or modify it under the terms of the GNU General Public License as published
+# by the Free Software Foundation, version 3 of the License.
+#
+# The Fuzion language implementation is distributed in the hope that it will be
+# useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+# License for more details.
+#
+# You should have received a copy of the GNU General Public License along with The
+# Fuzion language implementation.  If not, see <https://www.gnu.org/licenses/>.
+
+
+# -----------------------------------------------------------------------
+#
+#  Tokiwa Software GmbH, Germany
+#
+#  Source code of Fuzion test Makefile
+#
+# -----------------------------------------------------------------------
+
+override NAME = reg_issue3757
+include ../simple.mk

tests/reg_issue3757/reg_issue3757.fz

@@ -0,0 +1,26 @@
+# This file is part of the Fuzion language implementation.
+#
+# The Fuzion language implementation is free software: you can redistribute it
+# and/or modify it under the terms of the GNU General Public License as published
+# by the Free Software Foundation, version 3 of the License.
+#
+# The Fuzion language implementation is distributed in the hope that it will be
+# useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+# License for more details.
+#
+# You should have received a copy of the GNU General Public License along with The
+# Fuzion language implementation.  If not, see <https://www.gnu.org/licenses/>.
+
+
+# -----------------------------------------------------------------------
+#
+#  Tokiwa Software GmbH, Germany
+#
+#  Source code of Fuzion test reg_issue3757
+#
+# -----------------------------------------------------------------------
+
+my_string : String is
+my_choice2 : choice String my_string is
+mc2 my_choice2 := "str"