URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [string_pad_trunc.f90] - Rev 302
Compare with Previous | Blame | 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) linewrite (line, '(6A)') a, 'world'if (line .ne. 'hello world') call abortwrite (line, '(6A)') b, 'world'if (line .ne. 'hello world') call abortwrite (line, '(6A)') c, 'world'if (line .ne. 'hello world') call abortwrite (line, '(6A)') c(1), 'world'if (line .ne. 'hello world') call abortend