OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-intrinsic.c (gfc_conv_intrinsic_ibits): Fix call to build_int_cst.

Browse Source 
2007-01-02  Steven G. Kargl  <kargls@comcast.net>

	* trans-intrinsic.c (gfc_conv_intrinsic_ibits): Fix call to
	build_int_cst.

From-SVN: r120379
This commit is contained in:
Steven G. Kargl 2007-01-03 03:44:15 +00:00 committed by Jerry DeLisle
parent 03cb2019ff
commit b17a1b93fb
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2007-01-02 Steven G. Kargl <kargls@comcast.net>
* trans-intrinsic.c (gfc_conv_intrinsic_ibits): Fix call to
build_int_cst.
2007-01-02 Tobias Burnus <burnus@net-b.de>
PR fortran/30276

2
gcc/fortran/trans-intrinsic.c
View File

@ -2331,7 +2331,7 @@ gfc_conv_intrinsic_ibits (gfc_se * se, gfc_expr * expr)
arg2 = TREE_VALUE (arg2);
type = TREE_TYPE (arg);
mask = build_int_cst (NULL_TREE, -1);
mask = build_int_cst (type, -1);
mask = build2 (LSHIFT_EXPR, type, mask, arg3);
mask = build1 (BIT_NOT_EXPR, type, mask);