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

Subversion Repositories openrisc

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

Rev 303	Rev 338
`! PR 14038- 'H' in hollerith causes mangling of string`	`! PR 14038- 'H' in hollerith causes mangling of string`
`program hollerith`	`program hollerith`
`IMPLICIT NONE`	`IMPLICIT NONE`
`CHARACTER*4 LINE`	`CHARACTER*4 LINE`
`100 FORMAT (4H12H4)`	`100 FORMAT (4H12H4)`
`WRITE(LINE,100)`	`WRITE(LINE,100)`
`IF (LINE .NE. '12H4') call abort ()`	`IF (LINE .NE. '12H4') call abort ()`
`end`	`end`