1%% 2%% %CopyrightBegin% 3%% 4%% Copyright Ericsson AB 2005-2016. All Rights Reserved. 5%% 6%% Licensed under the Apache License, Version 2.0 (the "License"); 7%% you may not use this file except in compliance with the License. 8%% You may obtain a copy of the License at 9%% 10%% http://www.apache.org/licenses/LICENSE-2.0 11%% 12%% Unless required by applicable law or agreed to in writing, software 13%% distributed under the License is distributed on an "AS IS" BASIS, 14%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 15%% See the License for the specific language governing permissions and 16%% limitations under the License. 17%% 18%% %CopyrightEnd% 19%% 20-module(otp_5714). 21-export([?MODULE/0,foo/1,mktree_text/1]). 22-binary(<<1,2,3>>). 23 24?MODULE() -> 25 [<<1,2,3>>] = proplists:get_value(binary, ?MODULE:module_info(attributes)), 26 ok. 27 28-record(foo_record, {key,blabla}). 29foo(A) -> 30 hd(tl(element(2,element(2,catch erlang:error(apa))))), 31 case A of 32 A -> 33 B = #foo_record{ key = key1}, 34 C = B#foo_record{ key = key2}, 35 {X,Y} = {a,b} 36 end. 37 38mktree_text(Val) -> 39 case erlang:is_integer(Val) of 40 _A = IsInteger -> 41 _A; 42 _A -> 43 IsInteger = erlang:exit({{bug,mktree_text,4},{line,34},match,[_A]}) 44 end, 45 ok; 46mktree_text(_A1) -> 47 erlang:exit({{bug,mktree_text,4},{line,33},function_clause,[_A1]}). 48