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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88481 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 22cc1df..7cc833b 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 5aa2b35..3b4606a 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.