diff gcc/testsuite/gfortran.dg/import.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/import.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/import.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -8,7 +8,7 @@
     integer :: i
   end type myType3
   type(myType3) :: x
-  if(x%i /= 7) call abort()
+  if(x%i /= 7) STOP 1
   x%i = 1
 end subroutine test
 
@@ -20,8 +20,8 @@
   end type myType
   type(myType) :: x
   integer(8) :: y
-  if(y /= 8) call abort()
-  if(x%i /= 2) call abort()
+  if(y /= 8) STOP 2
+  if(x%i /= 2) STOP 3
   x%i = 5
   y = 42
 end subroutine bar
@@ -70,8 +70,8 @@
   y%i = 2
   i8 = 8
   call bar(y,i8)
-  if(y%i /= 5 .or. i8/= 42) call abort()
+  if(y%i /= 5 .or. i8/= 42) STOP 4
   z%i = 7
   call test(z)
-  if(z%i /= 1) call abort()
+  if(z%i /= 1) STOP 5
 end program foo