URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [unlimited_fmt_1.f08] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do run }
! PR41075 Implement unlimited format item '*'.
! Contributed by Jerry DeLisle  
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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR41075 Implement unlimited format item '*'.`
3			`! Contributed by Jerry DeLisle`
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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [unlimited_fmt_1.f08] - Blame information for rev 694