compiler: Suppress incorrect useless_building warning

Fix #11472

Author: lucioleKi

lib/compiler/src/sys_core_fold.erl

@@ -2901,7 +2901,7 @@ void() -> #c_literal{val=ok}.
 descend(_Core, #sub{top=false}=Sub) ->
     Sub;
 descend(Core, #sub{top=true}=Sub) ->
-    case should_suppress_warning(Core) of
+    case should_suppress_warning(Core) andalso not is_result_unwanted(Core) of
         true ->
             %% In a list comprehension being ignored such as:
             %%

lib/stdlib/test/erl_lint_SUITE.erl

@@ -96,7 +96,8 @@
          record_info_0/1,
          coverage/1,
          native_records/1,
-         invalid_attribute/1]).
+         invalid_attribute/1,
+         gh_11472/1]).
 
 suite() ->
     [{ct_hooks,[ts_install_cth]},
@@ -139,7 +140,8 @@ all() ->
      record_info_0,
      coverage,
      native_records,
-     invalid_attribute].
+     invalid_attribute,
+     gh_11472].
 
 groups() -> 
     [{unused_vars_warn, [],
@@ -6074,6 +6076,25 @@ invalid_attribute(Config) ->
 
     ok.
 
+gh_11472(Config) ->
+    Ts = [{nowarn,
+           <<"-export([f/1]).
+              f(Acc) ->
+                X = 0,
+                {Y} =
+                    begin
+                    _Fresh1 = {[X | Acc]},
+                    _Fresh1
+                    end,
+                Y.
+            ">>,
+           {[]},
+           []}
+           ],
+    [] = run(Config,Ts),
+
+    ok.
+
 %%%
 %%% Common utilities.
 %%%