2 ! Test the verify intrinsic. We were ignoring the last character.
7 if (verify(c1
, "1") .ne
. 1) call abort
9 if (verify(c4
, "A") .ne
. 2) call abort
10 if (verify(c4
, "A", back
= .true
.) .ne
. 3) call abort
11 if (verify(c4
, "AB") .ne
. 0) call abort