diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-10 16:01:54 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-10 16:01:54 +0000 |
| commit | 1e0c04639e433a8653989f6bcbc6d98075d956c3 (patch) | |
| tree | c5d58d80e3e311abc81deef7634e680d2df409b2 /gcc/testsuite/gfortran.dg | |
| parent | d72936dbaa1a3229d4c90e9e7183c9feabe0de4b (diff) | |
| download | gcc-1e0c04639e433a8653989f6bcbc6d98075d956c3.tar.gz | |
* match.c (match_arithmetic_if): Arithmetic IF is obsolete in
Fortran 95.
* gfortran.dg/pr17229.f: Take care of the new obsolescence
warning for arithmetic IF statements.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97948 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr17229.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr17229.f b/gcc/testsuite/gfortran.dg/pr17229.f index b1a4471e410..4e96d29921a 100644 --- a/gcc/testsuite/gfortran.dg/pr17229.f +++ b/gcc/testsuite/gfortran.dg/pr17229.f @@ -5,18 +5,18 @@ l = .false. i = -1 - if (l) if (i) 999,999,999 + if (l) if (i) 999,999,999 ! { dg-warning "Obsolete: arithmetic IF statement" } l = .true. - if (l) if (i) 10,999,999 + if (l) if (i) 10,999,999 ! { dg-warning "Obsolete: arithmetic IF statement" } go to 999 10 i = 0 - if (l) if (i) 999,20,999 + if (l) if (i) 999,20,999 ! { dg-warning "Obsolete: arithmetic IF statement" } go to 999 20 i = 1 - if (l) if (i) 999,999,30 + if (l) if (i) 999,999,30 ! { dg-warning "Obsolete: arithmetic IF statement" } go to 999 999 call abort |