diff options
| author | Hans Bolinder <[email protected]> | 2018-01-08 12:43:15 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2018-01-08 12:45:55 +0100 |
| commit | e8a8d0a81be4ef1ffbb5c382705a27bd24ebefea (patch) | |
| tree | b78b02ac3d292fe6c898e4d97febfa610aa29ed0 /lib/dialyzer/test | |
| parent | 19b7ccfe076d88a96b62f3222f38be31bb087df2 (diff) | |
| download | otp-e8a8d0a81be4ef1ffbb5c382705a27bd24ebefea.tar.gz otp-e8a8d0a81be4ef1ffbb5c382705a27bd24ebefea.tar.bz2 otp-e8a8d0a81be4ef1ffbb5c382705a27bd24ebefea.zip | |
dialyzer: Correct handling of erlang:abs/1
See also https://bugs.erlang.org/browse/ERL-551.
Diffstat (limited to 'lib/dialyzer/test')
| -rw-r--r-- | lib/dialyzer/test/small_SUITE_data/src/abs.erl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/dialyzer/test/small_SUITE_data/src/abs.erl b/lib/dialyzer/test/small_SUITE_data/src/abs.erl index 251e24cdfc..0e38c3dbb7 100644 --- a/lib/dialyzer/test/small_SUITE_data/src/abs.erl +++ b/lib/dialyzer/test/small_SUITE_data/src/abs.erl @@ -5,7 +5,7 @@ -export([t/0]). t() -> - Fs = [fun i1/0, fun i2/0, fun i3/0, fun i4/0, fun f1/0], + Fs = [fun i1/0, fun i2/0, fun i3/0, fun i4/0, fun f1/0, fun erl_551/0], _ = [catch F() || F <- Fs], ok. @@ -60,6 +60,13 @@ f1() -> f1(A) -> abs(A). +erl_551() -> + accept(9), + accept(-3). + +accept(Number) when abs(Number) >= 8 -> first; +accept(_Number) -> second. + -spec int() -> integer(). int() -> |