2 ! { dg-additional-options "-ffrontend-optimize" }
3 ! PR fortran/85387 - incorrect output
4 ! Original test case by Vittorio Zecca
7 character (len
=80) :: c1
, c2
12 write (unit
=c1
,fmt
='(3F12.5)') ((efg_pw(i
, j
), i
=1, j
), j
=1, 2)
13 write (unit
=c2
,fmt
='(3F12.5)') 1.0, 3.0, 4.0