URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [string_pad_trunc.f90] - Rev 154
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