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

Subversion Repositories openrisc_2011-10-31

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

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR20713. Pad and truncate string.`	`! PR20713. Pad and truncate string.`

`character(len = 6),parameter:: a = 'hello'`	`character(len = 6),parameter:: a = 'hello'`
`character(len = 6),parameter:: b = 'hello *'`	`character(len = 6),parameter:: b = 'hello *'`
`character(len = 6),parameter:: c (1:1) = 'hello'`	`character(len = 6),parameter:: c (1:1) = 'hello'`
`character(len = 11) line`	`character(len = 11) line`

`write (line, '(6A)') a, 'world'`	`write (line, '(6A)') a, 'world'`
`if (line .ne. 'hello world') call abort`	`if (line .ne. 'hello world') call abort`

`write (line, '(6A)') b, 'world'`	`write (line, '(6A)') b, 'world'`
`if (line .ne. 'hello world') call abort`	`if (line .ne. 'hello world') call abort`

`write (line, '(6A)') c, 'world'`	`write (line, '(6A)') c, 'world'`
`if (line .ne. 'hello world') call abort`	`if (line .ne. 'hello world') call abort`

`write (line, '(6A)') c(1), 'world'`	`write (line, '(6A)') c(1), 'world'`
`if (line .ne. 'hello world') call abort`	`if (line .ne. 'hello world') call abort`
`end`	`end`