URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [string_pad_trunc.f90] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [string_pad_trunc.f90] - Blame information for rev 774