Mercurial > hg > CbC > CbC_gcc
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