gcc/testsuite/gfortran.dg/string_pad_trunc.f90

   1 ! { dg-do run }
   2 ! PR20713. Pad and truncate string.
   3
   4 character(len = 6),parameter:: a = 'hello'
   5 character(len = 6),parameter:: b = 'hello *'
   6 character(len = 6),parameter:: c (1:1) = 'hello'
   7 character(len = 11) line
   8
   9 write (line, '(6A)') a, 'world'
  10 if (line .ne. 'hello world') call abort
  11
  12 write (line, '(6A)') b, 'world'
  13 if (line .ne. 'hello world') call abort
  14
  15 write (line, '(6A)') c, 'world'
  16 if (line .ne. 'hello world') call abort
  17
  18 write (line, '(6A)') c(1), 'world'
  19 if (line .ne. 'hello world') call abort
  20 end