diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/substr_2.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/substr_2.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/substr_2.f b/gcc/testsuite/gfortran.dg/substr_2.f index a7e43b635e8..bd23cddb7e7 100644 --- a/gcc/testsuite/gfortran.dg/substr_2.f +++ b/gcc/testsuite/gfortran.dg/substr_2.f @@ -7,18 +7,18 @@ s = "abcdefghij" t(:10) = s(1:) s(6:5) = "foo" - if (s /= t) call abort + if (s /= t) STOP 1 i = 2 j = -1 s(i:i+j) = "foo" - if (s /= t) call abort + if (s /= t) STOP 2 i = 20 s(i+1:i) = "foo" - if (s /= t) call abort + if (s /= t) STOP 3 s(6:5) = s(7:5) - if (s /= t) call abort + if (s /= t) STOP 4 s = t(7:6) - if (len(trim(s)) /= 0) call abort - if (len(t(8:4)) /= 0) call abort - if (len(trim(t(8:4))) /= 0) call abort + if (len(trim(s)) /= 0) STOP 5 + if (len(t(8:4)) /= 0) STOP 6 + if (len(trim(t(8:4))) /= 0) STOP 7 end |