1! { dg-do run } 2! PR41075 Implement unlimited format item '*'. 3! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> 4program unlimited 5 implicit none 6 integer i 7 character(len=60) :: string 8 integer, parameter :: n = 10 9 integer, dimension(n) :: iarray 10 iarray = (/ (i,i=1,n) /) 11 do i=1,10 12 write( string, '( "iarray =", *(g0, :, ","))') & 13 & "abcdefg",iarray, i,"jklmnop" 14 end do 15 if (string.ne."iarray =abcdefg,1,2,3,4,5,6,7,8,9,10,10,jklmnop") & 16 & STOP 1 17end program unlimited 18