URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_len.f90] - Rev 816
Compare with Previous | Blame | View Log
! Program to test the LEN intrinsic
program test
character(len=10) a
character(len=8) w
type person
character(len=10) name
integer age
end type person
type(person) Tom
integer n
a = w (n)
if ((a .ne. "01234567") .or. (n .ne. 8)) call abort
if (len(Tom%name) .ne. 10) call abort
call array_test()
end
function w(i)
character(len=8) w
integer i
w = "01234567"
i = len(w)
end
! This is the testcase from PR 15211 converted to a subroutine
subroutine array_test
implicit none
character(len=10) a(4)
if (len(a) .NE. 10) call abort()
end subroutine array_test