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') STOP 1
  11
  12 write (line, '(6A)') b, 'world'
  13 if (line .ne. 'hello world') STOP 2
  14
  15 write (line, '(6A)') c, 'world'
  16 if (line .ne. 'hello world') STOP 3
  17
  18 write (line, '(6A)') c(1), 'world'
  19 if (line .ne. 'hello world') STOP 4
  20 end