blob: 39f6eb66adb394492363f939dc58feabee1f274d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
http://bugs.gentoo.org/194975
http://gcc.gnu.org/PR30486
---
gcc/fortran/trans-types.c | 7 +++++++
1 file changed, 7 insertions(+)
Index: gcc-4.2.3/gcc/fortran/trans-types.c
===================================================================
--- gcc-4.2.3.orig/gcc/fortran/trans-types.c
+++ gcc-4.2.3/gcc/fortran/trans-types.c
@@ -1799,6 +1799,13 @@ gfc_type_for_size (unsigned bits, int un
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
{
|