Index: gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 |
diff --git a/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 b/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 |
index 90e4131685accd20250280e0732e053e4368ca15..d57610cca5214637e2a8b8d6b16b49df218f0e59 100644 |
--- a/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 |
+++ b/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_trim.f90 |
@@ -3,7 +3,7 @@ program intrinsic_trim |
character(len=8) a |
character(len=4) b,work |
a='1234 ' |
- b=work(9,a) |
+ b=work(8,a) |
if (llt(b,"1234")) call abort() |
a=' ' |
b=trim(a) |