* trans-intrinsic.c: Fix a comment typo.

From-SVN: r88481

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 22cc1df9035e1b5b383cfc2ecb73f8129585c588..7cc833bcf9946767dfd0404dd1a1ca18b738182c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-04  Kazu Hirata  <kazu@cs.umass.edu>
+
+       * trans-intrinsic.c: Fix a comment typo.
+
 2004-10-03  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
        * simplify.c (range_check): Remove blank line at beginning of function.

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 5aa2b351048feca74f1f0bb72f923570b9e04684..3b4606a6234b9f172955d1691b7cd10d8bb4ec2c 100644 (file)
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -2451,7 +2451,7 @@ gfc_conv_intrinsic_spacing (gfc_se * se, gfc_expr * expr)
 /* Generate code for RRSPACING (X) intrinsic function.
    RRSPACING (X) = |X * POW (2, -e)| * POW (2, p) = |FRACTION (X)| * POW (2, p)
 
-   So the result's exponenet is p. And if X is normalized, X's fraction part
+   So the result's exponent is p. And if X is normalized, X's fraction part
    is the result's fraction. If X is denormalized, to get the X's fraction we
    shift X's fraction part to left until the first '1' is removed.