diff gcc/testsuite/gfortran.dg/allocate_with_source_17.f03 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/allocate_with_source_17.f03	Fri Oct 27 22:46:09 2017 +0900
+++ b/gcc/testsuite/gfortran.dg/allocate_with_source_17.f03	Thu Oct 25 07:37:49 2018 +0900
@@ -25,11 +25,11 @@
   subroutine check
     select type (z => a%x)
       type is (real(8))
-        if (any (z .ne. r)) call abort
+        if (any (z .ne. r)) STOP 1
       type is (character(kind = 1, len = *))
-        if (any(z .ne. chr1)) call abort
+        if (any(z .ne. chr1)) STOP 2
       type is (character(kind = 4, len = *))
-        if (any(z .ne. chr4)) call abort
+        if (any(z .ne. chr4)) STOP 3
     end select
     deallocate (a%x)
   end subroutine