URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [string.f90] - Rev 742
Go to most recent revision | Compare with Previous | Blame | View Log
! Program to test string handling
program string
implicit none
character(len=5) :: a, b
character(len=20) :: c
a = 'Hello'
b = 'World'
c = a//b
if (c .ne. 'HelloWorld') call abort
if (c .eq. 'WorldHello') call abort
if (a//'World' .ne. 'HelloWorld') call abort
if (a .ge. b) call abort
end program
Go to most recent revision | Compare with Previous | Blame | View Log