diff gcc/testsuite/gfortran.dg/entry_16.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/entry_16.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/entry_16.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -38,6 +38,6 @@
   type(cx) :: a = cx (1, 2), c, d
   logical :: f
   integer :: b = 3
-  if (.not.((a + b) .eq. (b + a))) call abort ()
-  if (.not.((a + b) .eq. cx (4, 2))) call abort ()
+  if (.not.((a + b) .eq. (b + a))) STOP 1
+  if (.not.((a + b) .eq. cx (4, 2))) STOP 2
 end