Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/unlimited_fmt_1.f08 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! PR41075 Implement unlimited format item '*'. ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> program unlimited implicit none integer i character(len=60) :: string integer, parameter :: n = 10 integer, dimension(n) :: iarray iarray = (/ (i,i=1,n) /) do i=1,10 write( string, '( "iarray =", *(g0, :, ","))') & & "abcdefg",iarray, i,"jklmnop" end do if (string.ne."iarray =abcdefg,1,2,3,4,5,6,7,8,9,10,10,jklmnop") & & call abort end program unlimited