2006-07-24 Steven G. Kargl <kargls@comcast.net>

	* gfortran.dg/arithmetic_if.f90:  Fix comments.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@115732 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6ca06c6..00fd5b8 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2006-07-24  Steven G. Kargl  <kargls@comcast.net>
+
+       * gfortran.dg/arithmetic_if.f90:  Fix comments.
+
 2006-07-24  Volker Reichelt  <reichelt@igpm.rwth-aachen.de>
 
        PR c++/27572

diff --git a/gcc/testsuite/gfortran.dg/arithmetic_if.f90 b/gcc/testsuite/gfortran.dg/arithmetic_if.f90
index dc8645f..16dccae 100644 (file)
--- a/gcc/testsuite/gfortran.dg/arithmetic_if.f90
+++ b/gcc/testsuite/gfortran.dg/arithmetic_if.f90
@@ -12,15 +12,15 @@ program pr28439
 
    integer myfunc
       
-   if (myfunc(0)) 10, 20, 30  ! Should go to 10
+   if (myfunc(0)) 10, 20, 30  ! Should go to 30
 10 call abort
 20 call abort
 
-30 if (myfunc(0)) 40, 50, 60  ! Should go to 20
+30 if (myfunc(0)) 40, 50, 60  ! Should go to 50
 40 call abort
 60 call abort
 
-50 if (myfunc(0)) 70, 80, 90  ! Should go to 30
+50 if (myfunc(0)) 70, 80, 90  ! Should go to 70
 80 call abort
 90 call abort