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