gcc/testsuite/gfortran.dg/implied_do_io_7.f90

   1 ! { dg-do run }
   2 ! PR 100227 - this was falsely optimized, leading to nonsense  results.
   3 ! Original test case by "Mathieu".
   4
   5 program p
   6   implicit none
   7   integer, parameter :: nbmode = 3
   8   integer :: k
   9   real    :: mass(nbmode*2)
  10   character (len=80) :: line
  11   do k = 1, nbmode*2
  12      mass(k) = k
  13   end do
  14   write (unit=line,fmt='(*(F6.2))') (mass(k+k), k=1,nbmode)
  15   if (line /= '  2.00  4.00  6.00') stop 1
  16 end program