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

Subversion Repositories openrisc_me

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

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR25264 Verify that the internal unit, str, is not cleared`	`! PR25264 Verify that the internal unit, str, is not cleared`
`! before it is needed elsewhere. This is an extension.`	`! before it is needed elsewhere. This is an extension.`
`! Test derived from test case by JPR. Contributed by`	`! Test derived from test case by JPR. Contributed by`
`! Jerry DeLisle .`	`! Jerry DeLisle .`
`program write_padding`	`program write_padding`
`character(len=10) :: str`	`character(len=10) :: str`
`real :: atime`	`real :: atime`
`str = '123'`	`str = '123'`
`write( str, '(a3,i1)' ) trim(str),4`	`write( str, '(a3,i1)' ) trim(str),4`
`if (str.ne."1234") call abort()`	`if (str.ne."1234") call abort()`
`end program write_padding`	`end program write_padding`