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]

Re: [PATCH,committed] fortran/28439 -- Fix arithmetic if


Steve Kargl wrote:
I've committed a testcase as requested by FX.
[...]
   if (myfunc(0)) 10, 20, 30  ! Should go to 10
10 call abort
20 call abort

30 if (myfunc(0)) 40, 50, 60  ! Should go to 20
40 call abort
60 call abort

50 if (myfunc(0)) 70, 80, 90  ! Should go to 30
80 call abort
90 call abort

70 continue

I think the line numbers in the comments are from an old version of the testcase. The correct values now should be 30, 50, and 70, yes?


- Brooks


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