Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/string_pad_trunc.f90 @ 128:fe568345ddd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix CbC-example
author mir3636
date Wed, 11 Apr 2018 19:32:28 +0900
parents 04ced10e8804
children 84e7813d76e9
line wrap: on
line source

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