From: fxcoudert Date: Sat, 28 Aug 2010 07:35:10 +0000 (+0000) Subject: PR fortran/45436 X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=2c04725d073dd4b4c291592bfb2ff247e32acf4c;p=pf3gnuchains%2Fgcc-fork.git PR fortran/45436 * trans-types.c (gfc_init_kinds): Disable TFmode. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163611 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 24c3e7aa28e..9d86cea7398 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-08-28 Francois-Xavier Coudert + + PR fortran/45436 + * trans-types.c (gfc_init_kinds): Disable TFmode. + 2010-08-27 Janus Weil PR fortran/45432 diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 348ffeae1ca..11fecd95711 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -410,12 +410,11 @@ gfc_init_kinds (void) /* Only let float, double, long double and __float128 go through. Runtime support for others is not provided, so they would be - useless. TFmode support is only enabled with option - -fsoft-float. */ + useless. TODO: TFmode support should be enabled once libgfortran + support is done. */ if (mode != TYPE_MODE (float_type_node) && (mode != TYPE_MODE (double_type_node)) - && (mode != TYPE_MODE (long_double_type_node)) - && (mode != TFmode)) + && (mode != TYPE_MODE (long_double_type_node))) continue; /* Let the kind equal the precision divided by 8, rounding up. Again,