Mercurial > hg > CbC > CbC_gcc
diff gcc/testsuite/gfortran.dg/init_flag_7.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 (2018-10-25) |
parents | 84e7813d76e9 |
children |
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/init_flag_7.f90 Thu Oct 25 08:08:40 2018 +0900 +++ b/gcc/testsuite/gfortran.dg/init_flag_7.f90 Thu Oct 25 10:21:07 2018 +0900 @@ -17,13 +17,13 @@ integer i3 save i2 if (first) then - if (i1 .ne. -100) call abort - if (i2 .ne. 101) call abort - if (i3 .ne. 101) call abort + if (i1 .ne. -100) STOP 1 + if (i2 .ne. 101) STOP 2 + if (i3 .ne. 101) STOP 3 else - if (i1 .ne. 1001) call abort - if (i2 .ne. 1002) call abort - if (i3 .ne. 101) call abort + if (i1 .ne. 1001) STOP 4 + if (i2 .ne. 1002) STOP 5 + if (i3 .ne. 101) STOP 6 end if i1 = 1001 i2 = 1002 @@ -36,11 +36,11 @@ integer i2 save if (first) then - if (i1 .ne. -100) call abort - if (i2 .ne. 101) call abort + if (i1 .ne. -100) STOP 7 + if (i2 .ne. 101) STOP 8 else - if (i1 .ne. 1001) call abort - if (i2 .ne. 1002) call abort + if (i1 .ne. 1001) STOP 9 + if (i2 .ne. 1002) STOP 10 end if i1 = 1001 i2 = 1002