diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/array_constructor_39.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/array_constructor_39.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/array_constructor_39.f90 b/gcc/testsuite/gfortran.dg/array_constructor_39.f90 index 83eff05ddca..90c2d545c18 100644 --- a/gcc/testsuite/gfortran.dg/array_constructor_39.f90 +++ b/gcc/testsuite/gfortran.dg/array_constructor_39.f90 @@ -7,7 +7,7 @@ ! Original testcase by Vittorio Zecca <zeccav@gmail.com> ! I=5 - if (any((/(i,i=1,I)/) /= (/1,2,3,4,5/))) call abort ! { dg-warning "final expression references control variable" } - if (I /= 5) call abort + if (any((/(i,i=1,I)/) /= (/1,2,3,4,5/))) STOP 1! { dg-warning "final expression references control variable" } + if (I /= 5) STOP 2 end |