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.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [string_pad_trunc.f90] - Rev 316
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log