Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/dec_parameter_1.f @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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/dec_parameter_1.f	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/dec_parameter_1.f	Thu Oct 25 10:21:07 2018 +0900
@@ -22,7 +22,6 @@
           two = 2.0d0
           x = two * pi_1 * f_1 * t
           y = two * pi_2 * f_2 * t
-          z = two * pi_3 * f_3 * t
           return
         end subroutine
 
@@ -58,7 +57,7 @@
         if (x1 .ne. x2 .or. y1 .ne. y2
      &      .or. x1 .ne. y1 .or. x2 .ne. y2
      &      .or. y2 .ne. z2) then
-          call abort()
+          STOP 1
         endif
 
         end