1 ! Program to test the LEN and LEN_TRIM intrinsics.
7 if (len(d
) .ne
. 20) STOP 1
8 if (d
.ne
. "Longer Test String") STOP 2
17 if (len(d
) .ne
. 6) STOP 3
18 if (d
.ne
. "Foobar") STOP 4
27 c
= "Longer Test String"
30 if (len(c
) .ne
. 20) STOP 5
31 if (len_trim(c
) .ne
. 11) STOP 6
33 call test2 ("Foobar");