URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [string_pad_trunc.f90] - Rev 816
Compare with Previous | Blame | View Log
! { dg-do run }
! PR20713. Pad and truncate string.
character(len = 6),parameter:: a = 'hello'
character(len = 6),parameter:: b = 'hello *'
character(len = 6),parameter:: c (1:1) = 'hello'
character(len = 11) line
write (line, '(6A)') a, 'world'
if (line .ne. 'hello world') call abort
write (line, '(6A)') b, 'world'
if (line .ne. 'hello world') call abort
write (line, '(6A)') c, 'world'
if (line .ne. 'hello world') call abort
write (line, '(6A)') c(1), 'world'
if (line .ne. 'hello world') call abort
end