gcc/testsuite/gfortran.dg/unlimited_fmt_1.f08

   1 ! { dg-do run }
   2 ! PR41075 Implement unlimited format item '*'.
   3 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   4 program 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    & call abort
  17 end program unlimited