trans-types.c (gfc_type_for_size): Handle signed TImode.

2007-05-15  Paul Brook  <paul@codesourcery.com>

	* trans-types.c (gfc_type_for_size): Handle signed TImode.

From-SVN: r124748

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 625e304437b3ec6f588aba8095476d4b1319f691..83a808d15c7663a9e13cdb321ad5d00f931bd2f2 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-05-15  Paul Brook  <paul@codesourcery.com>
+
+       * trans-types.c (gfc_type_for_size): Handle signed TImode.
+
 2007-05-14  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        PR fortran/30723

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index d83987ea9bc228311b19cf2c8283bf2ab143f760..db85d96d3a2fb8d5a552e62a44f81a8bc4b5612a 100644 (file)
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -1785,6 +1785,13 @@ gfc_type_for_size (unsigned bits, int unsignedp)
          if (type && bits == TYPE_PRECISION (type))
            return type;
        }
+
+      /* Handle TImode as a special case because it is used by some backends
+         (eg. ARM) even though it is not available for normal use.  */
+#if HOST_BITS_PER_WIDE_INT >= 64
+      if (bits == TYPE_PRECISION (intTI_type_node))
+       return intTI_type_node;
+#endif
     }
   else
     {