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
+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()
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;
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;
+2005-04-10 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ * gfortran.dg/pr17229.f: Take care of the new obsolescence
+ warning for arithmetic IF statements.
+
2005-04-10 Thomas Koenig <Thomas.Koenig@online.de>
* eor_handling_1.f90: New test case.
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