Wrong result with /64 /opt, module variable used as DO index

When the following program is built with /64 /opt and run, the result is wrong -- a zero is printed instead of 34^2 = 1156.

module imod_m
   implicit none
   integer idir
end module

program tst
   use imod_m
   implicit none
   integer j, k
   do idir=1,10     ! Module variable used as DO index variable
      j = idir*3+4
      k = j*j
   end do
   print *,k
end program

mecej4

Many thanks for the feedback. The failure relates to optimisation number 30. I have made a note of this.

This failure has now been fixed for the next release of FTN95.