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