URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [string_pad_trunc.f90] - Rev 12
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