diff options
author | Björn Gustavsson <[email protected]> | 2012-08-23 10:04:39 +0200 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2012-08-23 10:04:39 +0200 |
commit | ce6ec3ffd49023bdd36d5546c86e57424bbcc847 (patch) | |
tree | 11c5ead65731f4cbefc1d82f5fc1b6e0736e5217 /lib/compiler/test/bs_construct_SUITE.erl | |
parent | f842a1dd3c7860be793a2bbc6c4d530b4dbb410e (diff) | |
parent | e7720fe2b2a1f09af70e74b54442f72f84609a31 (diff) | |
download | otp-ce6ec3ffd49023bdd36d5546c86e57424bbcc847.tar.gz otp-ce6ec3ffd49023bdd36d5546c86e57424bbcc847.tar.bz2 otp-ce6ec3ffd49023bdd36d5546c86e57424bbcc847.zip |
Merge branch 'maint'
* maint:
compiler: Warn if the size of a binary segment is invalid
Diffstat (limited to 'lib/compiler/test/bs_construct_SUITE.erl')
-rw-r--r-- | lib/compiler/test/bs_construct_SUITE.erl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/compiler/test/bs_construct_SUITE.erl b/lib/compiler/test/bs_construct_SUITE.erl index 31c7890f26..e8b30f44ce 100644 --- a/lib/compiler/test/bs_construct_SUITE.erl +++ b/lib/compiler/test/bs_construct_SUITE.erl @@ -468,6 +468,10 @@ opt(Config) when is_list(Config) -> ?line {'EXIT',_} = (catch <<<<23,56,0,2>>:64/float>>), ?line {'EXIT',_} = (catch <<<<23,56,0,2:7>>/binary>>), + %% Test constant propagation - there should be a warning. + BadSz = 2.5, + {'EXIT',_} = (catch <<<<N,56,0,2>>:BadSz/binary>>), + case id(false) of true -> ?line opt_dont_call_me(); false -> ok |