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