https://gcc.gnu.org/bugzilla/show_bug.cgi?id=86313
--- Comment #2 from janus at gcc dot gnu.org ---
Another simple example:
program p
integer :: f
integer, dimension(1:3) :: u
f = 1
u = f + (/0, 1, 2/)
print *, u
end
u = f + (/0, 1, 2/)
1
Warning: Creating array temporary at (1) [-Warray-temporaries]