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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [empty_format.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! from NIST test FM406.FOR`	`! from NIST test FM406.FOR`
`CHARACTER*10 A10VK`	`CHARACTER*10 A10VK`
`A10VK = 'XXXXXXXXXX'`	`A10VK = 'XXXXXXXXXX'`
`WRITE(A10VK,39110)`	`WRITE(A10VK,39110)`
`39110 FORMAT()`	`39110 FORMAT()`
`!`	`!`
`! the empty format should fill the target of the internal`	`! the empty format should fill the target of the internal`
`! write with blanks.`	`! write with blanks.`
`!`	`!`
`IF (A10VK.NE.'') THEN`	`IF (A10VK.NE.'') THEN`
`! PRINT*,A10VK`	`! PRINT*,A10VK`
`CALL ABORT`	`CALL ABORT`
`ENDIF`	`ENDIF`
`END`	`END`