diff options
Diffstat (limited to 'lib/dialyzer/test/small_SUITE_data/src/fun_ref_match.erl')
-rw-r--r-- | lib/dialyzer/test/small_SUITE_data/src/fun_ref_match.erl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/dialyzer/test/small_SUITE_data/src/fun_ref_match.erl b/lib/dialyzer/test/small_SUITE_data/src/fun_ref_match.erl new file mode 100644 index 0000000000..31e6bdfb47 --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/src/fun_ref_match.erl @@ -0,0 +1,21 @@ +%%%------------------------------------------------------------------- +%%% File : fun_ref_match.erl +%%% Author : Tobias Lindahl <tobiasl@csd.uu.se> +%%% Description : Find that newly created funs and references cannot +%%% match on earlier bound variables. +%%% +%%% Created : 10 Mar 2005 by Tobias Lindahl <tobiasl@csd.uu.se> +%%%------------------------------------------------------------------- +-module(fun_ref_match). + +-export([t1/1, t2/1]). + +t1(X) -> + X = fun(Y) -> Y end, + ok. + +t2(X) -> + case make_ref() of + X -> error; + _ -> ok + end. |