diff gcc/testsuite/gfortran.dg/deferred_character_assignment_1.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/deferred_character_assignment_1.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/deferred_character_assignment_1.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -10,13 +10,13 @@
   z = "cockatoo"
   length = len (z)
   z(:) = ''
-  if (len(z) .ne. length) call abort
-  if (trim (z) .ne. '') call abort
+  if (len(z) .ne. length) STOP 1
+  if (trim (z) .ne. '') STOP 2
   z(:3) = "foo"
-  if (len(z) .ne. length) call abort
-  if (trim (z) .ne. "foo") call abort
+  if (len(z) .ne. length) STOP 3
+  if (trim (z) .ne. "foo") STOP 4
   z(4:) = "__bar"
-  if (len(z) .ne. length) call abort
-  if (trim (z) .ne. "foo__bar") call abort
+  if (len(z) .ne. length) STOP 5
+  if (trim (z) .ne. "foo__bar") STOP 6
   deallocate (z)
 end