diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr17229.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr17229.f | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr17229.f b/gcc/testsuite/gfortran.dg/pr17229.f index da780d7feef..65f72b04d10 100644 --- a/gcc/testsuite/gfortran.dg/pr17229.f +++ b/gcc/testsuite/gfortran.dg/pr17229.f @@ -1,22 +1,23 @@ ! PR fortran/17229 ! { dg-do run } + integer i logical l l = .false. i = -1 - if (l) if (i) 999,999,999 ! { dg-warning "Obsolescent: arithmetic IF statement" } + if (l) if (i) 999,999,999 ! { dg-warning "Obsolescent feature" } l = .true. - if (l) if (i) 10,999,999 ! { dg-warning "Obsolescent: arithmetic IF statement" } + if (l) if (i) 10,999,999 ! { dg-warning "Obsolescent feature" } go to 999 10 i = 0 - if (l) if (i) 999,20,999 ! { dg-warning "Obsolescent: arithmetic IF statement" } + if (l) if (i) 999,20,999 ! { dg-warning "Obsolescent feature" } go to 999 20 i = 1 - if (l) if (i) 999,999,30 ! { dg-warning "Obsolescent: arithmetic IF statement" } + if (l) if (i) 999,999,30 ! { dg-warning "Obsolescent feature" } go to 999 999 call abort |