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/] [internal_write.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! PR 14901`	`! PR 14901`
`! Internal writes were appending CR after the last char`	`! Internal writes were appending CR after the last char`
`! written by the format statement.`	`! written by the format statement.`
`CHARACTER*10 A`	`CHARACTER*10 A`
`WRITE(A,'(3HGCC)')`	`WRITE(A,'(3HGCC)')`
`IF (A.NE.'GCC ') THEN`	`IF (A.NE.'GCC ') THEN`
`! PRINT*,'A was not filled correctly by internal write'`	`! PRINT*,'A was not filled correctly by internal write'`
`! PRINT*,' A = ',A`	`! PRINT*,' A = ',A`
`CALL ABORT`	`CALL ABORT`
`ENDIF`	`ENDIF`
`END`	`END`