arithmetic_if.f90: Fix comments.

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

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

From-SVN: r115732

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6ca06c69ca67ca22a98612010d1f6dcb9145a1b3..00fd5b8e53bed0f47da4cb1fc5872038b7ce1816 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 dc8645fd81f79179dddfaf770eb3fdc31522596f..16dccae03fcda1e1ef527aac50d1f27aaf944785 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