string_intrinsics.c (string_verify): Fix off by one error.

	* intrinsics/string_intrinsics.c (string_verify): Fix off by one
	error.
testsuite/
	* gfortran.dg/intrinsic_verify_1.f90: New test.

From-SVN: r88704

gcc/testsuite/ChangeLog

 2004-10-07  Paul Brook  <paul@codesourcery.com>
 
+	* gfortran.dg/intrinsic_verify_1.f90: New test.
+
+2004-10-07  Paul Brook  <paul@codesourcery.com>
+
 	* gfortran.dg/empty_format_1.f90: Remove stray commas.
 
 2004-10-07  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>

gcc/testsuite/gfortran.dg/intrinsic_verify_1.f90

+! { dg-do run }
+! Test the verify intrinsic.  We were ignoring the last character.
+program prog
+  character(len=1) :: c1
+  character(len=4) :: c4
+  c1 = "E"
+  if (verify(c1, "1") .ne. 1) call abort
+  c4 = "ABBA"
+  if (verify(c4, "A") .ne. 2) call abort
+  if (verify(c4, "A", back = .true.) .ne. 3) call abort
+  if (verify(c4, "AB") .ne. 0) call abort
+end program

libgfortran/ChangeLog

+2004-10-07  Paul Brook  <paul@codesourcery.com>
+
+	* intrinsics/string_intrinsics.c (string_verify): Fix off by one
+	error.
+
 2004-10-06  Paul Brook  <paul@codesourcery.com>
 
 	PR libfortran/17709

libgfortran/intrinsics/string_intrinsics.c

@@ -346,17 +346,16 @@ string_verify (GFC_INTEGER_4 slen, const char * str, GFC_INTEGER_4 setlen,
 
   if (back)
     {
-      last =  0;
+      last = -1;
       start = slen - 1;
       delta = -1;
     }
   else
     {
-      last = slen - 1;
+      last = slen;
       start = 0;
       delta = 1;
     }
-  i = 0;
   for (; start != last; start += delta)
     {
       for (i = 0; i < setlen; i++)