blob: 15e6e3492062282c134bffa0b87600d9eb2b3699 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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') STOP 1
write (line, '(6A)') b, 'world'
if (line .ne. 'hello world') STOP 2
write (line, '(6A)') c, 'world'
if (line .ne. 'hello world') STOP 3
write (line, '(6A)') c(1), 'world'
if (line .ne. 'hello world') STOP 4
end
|