string_pad_trunc.f90

来自「用于进行gcc测试」· F90 代码 · 共 21 行

! { 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