URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_trim.f90] - Rev 307
Go to most recent revision | Compare with Previous | Blame | View Log
! Program to test the TRIM and REPEAT intrinsics.
program intrinsic_trim
character(len=8) a
character(len=4) b,work
a='1234 '
b=work(8,a)
if (llt(b,"1234")) call abort()
a=' '
b=trim(a)
if (b .gt. "") call abort()
b='12'
a=repeat(b,0)
if (a .gt. "") call abort()
a=repeat(b,2)
if (a .ne. "12 12 ") call abort()
end
function work(i,a)
integer i
character(len=i) a
character(len=4) work
work = trim(a)
end
Go to most recent revision | Compare with Previous | Blame | View Log