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