This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Fix comments in arithmetic_if.f90


I've applied the following patch as obvious correct.

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

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

Index: gfortran.dg/arithmetic_if.f90
===================================================================
--- gfortran.dg/arithmetic_if.f90       (revision 115731)
+++ gfortran.dg/arithmetic_if.f90       (working copy)
@@ -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

-- 
Steve


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]