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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [longline.f] - Diff between revs 154 and 816

Rev 154	Rev 816
`# 1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.f"`	`# 1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.f"`
`! { dg-do compile }`	`! { dg-do compile }`

`subroutine foo`	`subroutine foo`
`character*10 cpnam`	`character*10 cpnam`
`character*4 csig`	`character*4 csig`
`write (34,808) csig,ilax,cpnam`	`write (34,808) csig,ilax,cpnam`
`808 format (/9X,4HTHE ,A4, 29HTIVE MINOS ERROR OF PARAMETER,I3, 2H`	`808 format (/9X,4HTHE ,A4, 29HTIVE MINOS ERROR OF PARAMETER,I3, 2H`
`+, ,A10)`	`+, ,A10)`
`end`	`end`