simplify.c (gfc_simplify_modulo): Don't clear before get result.

2005-06-24  Feng Wang  <fengwang@nudt.edu.cn>

        * simplify.c (gfc_simplify_modulo): Don't clear before get result.


2005-06-24  Feng Wang  <fengwang@nudt.edu.cn>

        * gfortran.dg/simplify_modulo.f90: New.

From-SVN: r101288

gcc/fortran/ChangeLog

-2005-06-22 Paul Brook  <paul@codesourcery.com>
+2005-06-24  Feng Wang  <fengwang@nudt.edu.cn>
+
+	* simplify.c (gfc_simplify_modulo): Don't clear before get result.
+
+2005-06-22  Paul Brook  <paul@codesourcery.com>
 
 	PR fortran/21034
 	* symbol.c (gfc_is_var_automatic): New function.

gcc/fortran/simplify.c

@@ -2231,12 +2231,11 @@ gfc_simplify_modulo (gfc_expr * a, gfc_expr * p)
       mpfr_div (quot, a->value.real, p->value.real, GFC_RND_MODE);
       mpfr_floor (iquot, quot);
       mpfr_mul (term, iquot, p->value.real, GFC_RND_MODE);
+      mpfr_sub (result->value.real, a->value.real, term, GFC_RND_MODE);
 
       mpfr_clear (quot);
       mpfr_clear (iquot);
       mpfr_clear (term);
-
-      mpfr_sub (result->value.real, a->value.real, term, GFC_RND_MODE);
       break;
 
     default:

gcc/testsuite/ChangeLog

+2005-06-24  Feng Wang  <fengwang@nudt.edu.cn>
+
+	* gfortran.dg/simplify_modulo.f90: New.
+
 2005-06-24  Jan Hubicka  <jh@suse.cz>
 
 	* gcc.dg/tree-ssa/20040210-1.c: Fix for unit-at-a-time

gcc/testsuite/gfortran.dg/simplify_modulo.f90

+! { dg-do run }
+
+if (modulo (-8., -5.) .ne. -3.) call abort ()
+
+end