arithmetic_if.f90: Fix comments.
2006-07-24 Steven G. Kargl <kargls@comcast.net> * gfortran.dg/arithmetic_if.f90: Fix comments. From-SVN: r115732
This commit is contained in:
parent
709f9dcf15
commit
a72a078396
2 changed files with 7 additions and 3 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue