fortran-testcase/dce question

[Dorit Naishlos]

We've had the testcase below in autovect-branch for a while, testing that
the 3 loops get vectorized. On mainline the third loop now gets eliminated
by DCE (.t44.dce3). Not sure I understand why... isn't the print loop
enough to keep it alive?

======================
subroutine foo(a,b)
real a,b
type bzz
   real d(100)
end type bzz
type (bzz) e

dimension a(100), b(100)
read *,x,y
a=log(x)    <--- loop 1
b=log(y)    <--- loop 2
e%d = a+b   <--- loop 3. eliminated
print *,e%d
end
======================

thanks,
dorit