diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6d5edb7135886cd8ccbfab679bf951bb35f22e48..8fb368ee51ad17f8779f4fcbcfa3df1d1132414d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2005-04-12  Kazu Hirata  <kazu@cs.umass.edu>
+
+	* simplify.c: Fix a comment typo.
+
 2005-04-11  Richard Sandiford  <rsandifo@redhat.com>
 
 	* lang.opt: Refer to the GCC internals documentation instead of c.opt.
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 1ca5b52bdfb2f9ee28e7b6e235011a6014d74042..8f9f9e4935ca95ad760baecdbf27afe923af154f 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -2322,7 +2322,7 @@ gfc_simplify_nearest (gfc_expr * x, gfc_expr * s)
       else
 	{
 	  /* In this case the exponent can shrink, which makes us skip
-	     over one number because we substract one ulp with the
+	     over one number because we subtract one ulp with the
 	     larger exponent.  Thus we need to compensate for this.  */
 	  mpfr_init_set (tmp, result->value.real, GFC_RND_MODE);