diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/arithmetic_if.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/arithmetic_if.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/arithmetic_if.f90 b/gcc/testsuite/gfortran.dg/arithmetic_if.f90 index 16dccae03fc..995d985b505 100644 --- a/gcc/testsuite/gfortran.dg/arithmetic_if.f90 +++ b/gcc/testsuite/gfortran.dg/arithmetic_if.f90 @@ -13,16 +13,16 @@ program pr28439 integer myfunc if (myfunc(0)) 10, 20, 30 ! Should go to 30 -10 call abort -20 call abort +10 STOP 1 +20 STOP 2 30 if (myfunc(0)) 40, 50, 60 ! Should go to 50 -40 call abort -60 call abort +40 STOP 3 +60 STOP 4 50 if (myfunc(0)) 70, 80, 90 ! Should go to 70 -80 call abort -90 call abort +80 STOP 5 +90 STOP 6 70 continue |