From f330d3f853ea197ca0a6724eeae95bf3ab243b02 Mon Sep 17 00:00:00 2001
From: Frej Drejhammar <frej.drejhammar@gmail.com>
Date: Wed, 31 Jul 2024 12:39:59 +0200
Subject: [PATCH] DEBUG: Print the name of compiled files

---
 lib/compiler/test/compilation_SUITE.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/compiler/test/compilation_SUITE.erl b/lib/compiler/test/compilation_SUITE.erl
index f84b48e71fcb..cc0b6d9dba8b 100644
--- a/lib/compiler/test/compilation_SUITE.erl
+++ b/lib/compiler/test/compilation_SUITE.erl
@@ -371,10 +371,14 @@ compile_compiler(Files, OutDir, Version, InlineOpts) ->
 	    {d,'COMPILER_VSN',"\""++Version++"\""},
 	    nowarn_shadow_vars,
 	    {i,filename:join(code:lib_dir(stdlib), "include")}|InlineOpts],
+    lists:foreach(fun(F) ->
+                          ct:pal(?HI_IMPORTANCE, "!! trying to print ~p~n", [F]),
+                          ct:pal(?HI_IMPORTANCE, "!! will compile ~ts~n", [F])
+                  end, Files),
     test_lib:p_run(fun(File) ->
 			   case compile:file(File, Opts) of
 			       {ok,_} -> ok;
-			       _ -> error
+			       error -> error
 			   end
 		   end, Files).