gcc/testsuite/gfortran.dg/array_constructor_49.f90

   1 ! { dg-do run }
   2 ! { dg-options "-ffrontend-optimize -fdump-tree-original" }
   3 ! PR 62106 - this used to give wrong results because
   4 ! of a bogus extra temporary variable.
   5 ! Original test case by Martien Hulsen
   6 program t
   7   integer :: ndim=2, ndfp=4, i
   8   character (len=8) :: line
   9   write (unit=line,fmt='(4I2)'), (/ ( i, i = 1, ndfp ) /) + ndim
  10   if (line /= ' 3 4 5 6') call abort
  11 end program t
  12 ! { dg-final { scan-tree-dump-times "__var" 3 "original" } }
  13 ! { dg-final { cleanup-tree-dump "original" } }