Fix comments in arithmetic_if.f90

Steve Kargl sgk@troutmask.apl.washington.edu
Tue Jul 25 06:28:00 GMT 2006


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



More information about the Fortran mailing list