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 801
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log