diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 9 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 74bfa1a..af6bc8a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-04-10 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + * match.c (match_arithmetic_if): Arithmetic IF is obsolete in + Fortran 95. + 2005-04-09 Steven G. Kargl <kargls@comcast.net> * simplify.c (gfc_simplify_anint): Use mpfr_round() diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 0a173b8..d81686b 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -922,6 +922,10 @@ match_arithmetic_if (void) return MATCH_ERROR; } + if (gfc_notify_std (GFC_STD_F95_DEL, + "Obsolete: arithmetic IF statement at %C") == FAILURE) + return MATCH_ERROR; + new_st.op = EXEC_ARITHMETIC_IF; new_st.expr = expr; new_st.label = l1; @@ -993,6 +997,11 @@ gfc_match_if (gfc_statement * if_type) gfc_free_expr (expr); return MATCH_ERROR; } + + if (gfc_notify_std (GFC_STD_F95_DEL, + "Obsolete: arithmetic IF statement at %C") + == FAILURE) + return MATCH_ERROR; new_st.op = EXEC_ARITHMETIC_IF; new_st.expr = expr; |