Fix loading of Core Erlang code for extracting a map element

The following Core Erlang code could not be loaded:

    'f'/1 = fun (_1) ->
                case <_1> of
                  <~{'foo':='foo'}~> when 'true' ->
                    _1
                end

Loading would fail with the following message:

     beam/beam_load.c(2314): Error loading function example:f/1: op i_get_map_element_hash p x a u x:
       no specific operation found

https://bugs.erlang.org/browse/ERL-955

1 files changed, 18 insertions, 0 deletions

diff --git a/lib/compiler/test/core_SUITE_data/get_map_element.core b/lib/compiler/test/core_SUITE_data/get_map_element.core
new file mode 100644
index 0000000000..092b5e71eb
--- /dev/null
+++ b/lib/compiler/test/core_SUITE_data/get_map_element.core
@@ -0,0 +1,18 @@
+module 'get_map_element' ['get_map_element'/0]
+attributes []
+
+'get_map_element'/0 =
+    fun () ->
+      apply 'match_map'/1(~{'foo'=>'bar'}~)
+
+'match_map'/1 =
+    fun (_0) ->
+	case _0 of
+	  <~{'foo':='bar'}~> when 'true' ->
+	    'ok'
+	  %% It will be undefined behaviour at runtime if no
+	  %% clause of the case can be selected. That can't
+	  %% happen for this module, because match_map/1 is
+	  %% always called with a matching map argument.
+    end
+end