PR fortran/17229
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 8 Apr 2005 10:56:59 +0000 (10:56 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 8 Apr 2005 10:56:59 +0000 (10:56 +0000)
commitd170651ff5dbfdef8d6f207c880f5ec4f31b1d0a
tree5eaf3ff77e851b8c3bc1b44dda144967413a2c86
parent03ea9d8a4c32ddbb2983ba472d6b3c5f8f01c7be
PR fortran/17229

* match.c (gfc_match_arithmetic_if): New function to match an
arithmetic IF statement.
(gfc_match_if): Use gfc_match_arithmetic_if to match an
arithmetic IF statement embedded in a simple IF statement.

* gfortran.dg/pr17229.f: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97825 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/match.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/pr17229.f [new file with mode: 0644]