URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [comma_format_extension_3.f] - Diff between revs 149 and 154

Rev 149	Rev 154
`! PR libfortran/15332 and PR fortran/13257`	`! PR libfortran/15332 and PR fortran/13257`
`! We used to accept this as an extension but`	`! We used to accept this as an extension but`
`! did do the correct thing at runtime.`	`! did do the correct thing at runtime.`
`! Note the missing , before i1 in the format.`	`! Note the missing , before i1 in the format.`
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "" }`	`! { dg-options "" }`
`character*12 c`	`character*12 c`

`write (c,100) 0, 1`	`write (c,100) 0, 1`
`if (c .ne. 'i = 0, j = 1') call abort`	`if (c .ne. 'i = 0, j = 1') call abort`

`write (c,100) 0`	`write (c,100) 0`
`if (c .ne. 'i = 0 ') call abort`	`if (c .ne. 'i = 0 ') call abort`

`100 format ('i = 'i1,:,', j = ',i1)`	`100 format ('i = 'i1,:,', j = ',i1)`
`end`	`end`