Mercurial > hg > CbC > CbC_gcc
diff gcc/testsuite/gfortran.dg/bound_1.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/bound_1.f90 Thu Oct 25 08:08:40 2018 +0900 +++ b/gcc/testsuite/gfortran.dg/bound_1.f90 Thu Oct 25 10:21:07 2018 +0900 @@ -9,12 +9,12 @@ integer i i = ubound(tt(1)%a, 1) - if (i/=5) call abort() + if (i/=5) STOP 1 i = lbound(tt(1)%a, 1) - if (i/=1) call abort() + if (i/=1) STOP 2 i = ubound(tt, 1) - if (i/=2) call abort() + if (i/=2) STOP 3 i = lbound(tt, 1) - if (i/=1) call abort() + if (i/=1) STOP 4 end