blob: 85f233ff7518c9ee1a30632b0ebbad9bc2eee5da [file] [log] [blame]
! Program to test the LEN and LEN_TRIM intrinsics.
subroutine test (c)
character(*) c
character(len(c)) d
d = c
if (len(d) .ne. 20) STOP 1
if (d .ne. "Longer Test String") STOP 2
c = "Hello World"
end subroutine
subroutine test2 (c)
character (*) c
character(len(c)) d
d = c
if (len(d) .ne. 6) STOP 3
if (d .ne. "Foobar") STOP 4
end subroutine
program strlen
implicit none
character(20) c
character(5) a, b
integer i
c = "Longer Test String"
call test (c)
if (len(c) .ne. 20) STOP 5
if (len_trim(c) .ne. 11) STOP 6
call test2 ("Foobar");
end program