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] - Rev 694
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