diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr15140.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/pr15140.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr15140.f90 b/gcc/testsuite/gfortran.dg/pr15140.f90 index 393badcd4ea..0f566dcd1d4 100644 --- a/gcc/testsuite/gfortran.dg/pr15140.f90 +++ b/gcc/testsuite/gfortran.dg/pr15140.f90 @@ -3,7 +3,7 @@ ! argument of the subroutine directly, but instead use a copy of it. function M(NAMES) CHARACTER*(*) NAMES(*) - if (any(names.ne."asdfg")) call abort + if (any(names(1:2).ne."asdfg")) call abort m = LEN(NAMES(1)) END function M |