This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [gfortran, committed] Fix type-safety issues was: Re: [gfortran] Fix PR 20178: Implement g77 / f2c calling conventions
- From: Feng Wang <wf_cs at yahoo dot com>
- To: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>, Paul Brook <paul at codesourcery dot com>
- Cc: fortran at gcc dot gnu dot org, patch <gcc-patches at gcc dot gnu dot org>
- Date: Tue, 29 Mar 2005 09:52:25 +0800 (CST)
- Subject: Re: [gfortran, committed] Fix type-safety issues was: Re: [gfortran] Fix PR 20178: Implement g77 / f2c calling conventions
Hi, Tobi
This patch seems not to be committed to 4.0 branch.
Best Regards,
Feng Wang
>
> Index: ChangeLog
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
> retrieving revision 1.343
> diff -u -p -r1.343 ChangeLog
> --- ChangeLog 4 Mar 2005 21:03:28 -0000 1.343
> +++ ChangeLog 5 Mar 2005 19:59:20 -0000
> @@ -1,3 +1,8 @@
> +2005-03-05 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
> +
> + * trans-const.c (gfc_conv_constant_to_tree): Use correct tree
> + type for COMPLEX constants.
> +
> 2005-03-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
>
> PR fortran/19673
> Index: trans-const.c
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/fortran/trans-const.c,v
> retrieving revision 1.21
> diff -u -p -r1.21 trans-const.c
> --- trans-const.c 22 Jan 2005 00:29:33 -0000 1.21
> +++ trans-const.c 5 Mar 2005 19:59:20 -0000
> @@ -316,7 +316,8 @@ gfc_conv_constant_to_tree (gfc_expr * ex
> tree imag = gfc_conv_mpfr_to_tree (expr->value.complex.i,
> expr->ts.kind);
>
> - return build_complex (NULL_TREE, real, imag);
> + return build_complex (gfc_typenode_for_spec (&expr->ts),
> + real, imag);
> }
>
> case BT_CHARACTER:
>
_________________________________________________________
Do You Yahoo!?
150万曲MP3疯狂搜,带您闯入音乐殿堂
http://music.yisou.com/
美女明星应有尽有,搜遍美图、艳图和酷图
http://image.yisou.com
1G就是1000兆,雅虎电邮自助扩容!
http://cn.rd.yahoo.com/mail_cn/tag/1g/*http://cn.mail.yahoo.com/event/mail_1g/