* trans-intrinsic.c (gfc_conv_intrinsic_ibits): Fix call to
build_int_cst.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120379
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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);