From ad5f4de228737897d59cb3e629f934d504029e16 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Tue, 31 Aug 2010 18:56:46 +0000 Subject: re PR fortran/38282 (Bit intrinsics: ILEN and IBCHNG) PR fortran/38282 * f95-lang.c (gfc_init_builtin_functions): Define popcount{,l,ll} and parity{,l,ll} builtins. * trans-intrinsic.c (gfc_conv_intrinsic_popcnt_poppar): New function. (gfc_conv_intrinsic_function): Call above new functions. * simplify.c (gfc_simplify_popcnt, gfc_simplify_poppar): New functions. * intrinsic.texi: Document POPCNT and POPPAR. * gfortran.dg/popcnt_poppar_1.F90: New test. * gfortran.dg/popcnt_poppar_2.F90: New test. From-SVN: r163691 --- gcc/fortran/intrinsic.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/fortran/intrinsic.h') diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index 2c101d3..383ada0 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -317,6 +317,8 @@ gfc_expr *gfc_simplify_not (gfc_expr *); gfc_expr *gfc_simplify_or (gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_pack (gfc_expr *, gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_parity (gfc_expr *, gfc_expr *); +gfc_expr *gfc_simplify_popcnt (gfc_expr *); +gfc_expr *gfc_simplify_poppar (gfc_expr *); gfc_expr *gfc_simplify_precision (gfc_expr *); gfc_expr *gfc_simplify_product (gfc_expr *, gfc_expr *, gfc_expr *); gfc_expr *gfc_simplify_radix (gfc_expr *); -- cgit v1.1