diff gcc/testsuite/gfortran.dg/substr_6.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/substr_6.f90	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/substr_6.f90	Thu Oct 25 07:37:49 2018 +0900
@@ -6,11 +6,9 @@
 CHARACTER*5 c(1)
 CHARACTER(1), parameter :: c1(5) = (/ "1", "2", "3", ACHAR(0), "5" /)
 
-c = c0(1)(-5:-8)
-if (c(1) /= "     ") call abort()
 c = (/ c0(1)(1:5) /)
 do i=1,5
-   if (c(1)(i:i) /= c1(i)) call abort()
+   if (c(1)(i:i) /= c1(i)) STOP 2
 
    ! Make NULs visible (and avoid corrupting text output).
    if (c(1)(i:i) == ACHAR(0)) then