------- Comment #40 from burnus at gcc dot gnu dot org 2010-08-27 19:18 ------- Subject: Bug 33197
Author: burnus Date: Fri Aug 27 19:17:45 2010 New Revision: 163595 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=163595 Log: gcc/fortran/ 2010-08-27 Tobias Burnus <bur...@net-b.de> PR fortran/33197 * gcc/fortran/intrinsic.c (add_functions): Add norm2 and parity. * gcc/fortran/intrinsic.h (gfc_check_norm2, gfc_check_parity): gfc_simplify_norm2, gfc_simplify_parity, gfc_resolve_norm2, gfc_resolve_parity): New prototypes. * gcc/fortran/gfortran.h (gfc_isym_id): New enum items GFC_ISYM_NORM2 and GFC_ISYM_PARITY. * gcc/fortran/iresolve.c (gfc_resolve_norm2, gfc_resolve_parity): New functions. * gcc/fortran/check.c (gfc_check_norm2, gfc_check_parity): New functions. * gcc/fortran/trans-intrinsic.c (gfc_conv_intrinsic_arith, gfc_conv_intrinsic_function): Handle NORM2 and PARITY. * gcc/fortran/intrinsic.texi (NORM2, PARITY): Add. * gcc/fortran/simplify.c (simplify_transformation_to_array): Add post-processing opterator. (gfc_simplify_all, gfc_simplify_any, gfc_simplify_count, gfc_simplify_product, gfc_simplify_sum): Update call. (add_squared, do_sqrt, gfc_simplify_norm2, do_xor, gfc_simplify_parity): New functions. gcc/testsuite/ 2010-08-27 Tobias Burnus <bur...@net-b.de> PR fortran/33197 * gcc/testsuite/gfortran.dg/norm2_1.f90: New. * gcc/testsuite/gfortran.dg/norm2_2.f90: New. * gcc/testsuite/gfortran.dg/norm2_3.f90: New. * gcc/testsuite/gfortran.dg/norm2_4.f90: New. * gcc/testsuite/gfortran.dg/parity_1.f90: New. * gcc/testsuite/gfortran.dg/parity_2.f90: New. * gcc/testsuite/gfortran.dg/parity_3.f90: New. libgfortran/ 2010-08-27 Tobias Burnus <bur...@net-b.de> PR fortran/33197 * libgfortran/m4/ifunction.m4 (FINISH_ARRAY_FUNCTION, ARRAY_FUNCTION): Allow expression after loop. * libgfortran/m4/norm2.m4: New for _gfortran_norm2_r{4,8,10,16}. * libgfortran/m4/parity.m4: New for * _gfortran_parity_l{1,2,4,8,16}. * libgfortran/gfortran.map: Add new functions. * libgfortran/Makefile.am: Ditto. * libgfortran/m4/minloc1.m4: Add empty argument for * ARRAY_FUNCTION. * libgfortran/m4/maxloc1.m4: Ditto. * libgfortran/m4/all.m4: Ditto. * libgfortran/m4/minval.m4: Ditto. * libgfortran/m4/maxval.m4: Ditto. * libgfortran/m4/count.m4: Ditto. * libgfortran/m4/product.m4: Ditto. * libgfortran/m4/any.m4: Ditto. * Makefile.in: Regenerated. * generated/minval_r8.c: Regenerated. * generated/maxloc1_4_r8.c: Regenerated. * generated/minloc1_16_r16.c: Regenerated. * generated/norm2_r4.c: Regenerated. * generated/sum_i8.c: Regenerated. * generated/parity_l2.c: Regenerated. * generated/any_l16.c: Regenerated. * generated/maxval_i2.c: Regenerated. * generated/any_l2.c: Regenerated. * generated/product_r4.c: Regenerated. * generated/maxloc1_8_i4.c: Regenerated. * generated/parity_l16.c: Regenerated. * generated/all_l1.c: Regenerated. * generated/product_i2.c: Regenerated. * generated/minloc1_8_r16.c: Regenerated. * generated/maxloc1_8_r16.c: Regenerated. * generated/sum_r16.c: Regenerated. * generated/sum_i1.c: Regenerated. * generated/minloc1_4_r8.c: Regenerated. * generated/maxloc1_16_r16.c: Regenerated. * generated/minloc1_16_i4.c: Regenerated. * generated/maxloc1_16_i4.c: Regenerated. * generated/maxval_r16.c: Regenerated. * generated/product_c10.c: Regenerated. * generated/minloc1_8_i4.c: Regenerated. * generated/all_l2.c: Regenerated. * generated/product_c4.c: Regenerated. * generated/sum_r4.c: Regenerated. * generated/all_l16.c: Regenerated. * generated/minloc1_16_r10.c: Regenerated. * generated/sum_i2.c: Regenerated. * generated/maxloc1_8_r8.c: Regenerated. * generated/minval_i16.c: Regenerated. * generated/parity_l4.c: Regenerated. * generated/maxval_i4.c: Regenerated. * generated/any_l4.c: Regenerated. * generated/minval_i8.c: Regenerated. * generated/maxloc1_4_i8.c: Regenerated. * generated/minloc1_4_i16.c: Regenerated. * generated/maxloc1_4_i16.c: Regenerated. * generated/minloc1_8_r10.c: Regenerated. * generated/product_i4.c: Regenerated. * generated/maxloc1_8_r10.c: Regenerated. * generated/sum_c16.c: Regenerated. * generated/minloc1_16_r8.c: Regenerated. * generated/maxloc1_16_r8.c: Regenerated. * generated/count_4_l.c: Regenerated. * generated/sum_r10.c: Regenerated. * generated/count_8_l.c: Regenerated. * generated/sum_c4.c: Regenerated. * generated/maxloc1_16_r10.c: Regenerated. * generated/minloc1_8_r8.c: Regenerated. * generated/maxval_r10.c: Regenerated. * generated/minval_i1.c: Regenerated. * generated/maxloc1_4_i1.c: Regenerated. * generated/minloc1_4_i8.c: Regenerated. * generated/product_i16.c: Regenerated. * generated/all_l4.c: Regenerated. * generated/norm2_r16.c: Regenerated. * generated/minval_r4.c: Regenerated. * generated/maxloc1_4_r4.c: Regenerated. * generated/sum_i4.c: Regenerated. * generated/maxval_r8.c: Regenerated. * generated/norm2_r8.c: Regenerated. * generated/minloc1_4_i1.c: Regenerated. * generated/minval_r16.c: Regenerated. * generated/minval_i2.c: Regenerated. * generated/maxloc1_4_i2.c: Regenerated. * generated/product_r8.c: Regenerated. * generated/maxloc1_8_i8.c: Regenerated. * generated/sum_c10.c: Regenerated. * generated/minloc1_4_r16.c: Regenerated. * generated/maxloc1_4_r16.c: Regenerated. * generated/count_1_l.c: Regenerated. * generated/minloc1_4_r4.c: Regenerated. * generated/minloc1_16_i8.c: Regenerated. * generated/maxloc1_16_i8.c: Regenerated. * generated/minloc1_4_i2.c: Regenerated. * generated/maxloc1_8_i1.c: Regenerated. * generated/minloc1_8_i8.c: Regenerated. * generated/product_r16.c: Regenerated. * generated/product_c8.c: Regenerated. * generated/sum_r8.c: Regenerated. * generated/norm2_r10.c: Regenerated. * generated/minloc1_16_i16.c: Regenerated. * generated/maxloc1_8_r4.c: Regenerated. * generated/minloc1_16_i1.c: Regenerated. * generated/maxloc1_16_i1.c: Regenerated. * generated/minval_r10.c: Regenerated. * generated/count_16_l.c: Regenerated. * generated/parity_l8.c: Regenerated. * generated/minloc1_8_i1.c: Regenerated. * generated/minval_i4.c: Regenerated. * generated/maxloc1_4_i4.c: Regenerated. * generated/maxloc1_8_i2.c: Regenerated. * generated/maxval_i8.c: Regenerated. * generated/any_l8.c: Regenerated. * generated/minloc1_4_r10.c: Regenerated. * generated/minloc1_8_i16.c: Regenerated. * generated/maxloc1_4_r10.c: Regenerated. * generated/maxloc1_8_i16.c: Regenerated. * generated/minloc1_16_r4.c: Regenerated. * generated/maxloc1_16_r4.c: Regenerated. * generated/product_i8.c: Regenerated. * generated/sum_i16.c: Regenerated. * generated/count_2_l.c: Regenerated. * generated/maxloc1_16_i16.c: Regenerated. * generated/minloc1_8_r4.c: Regenerated. * generated/sum_c8.c: Regenerated. * generated/minloc1_16_i2.c: Regenerated. * generated/maxloc1_16_i2.c: Regenerated. * generated/parity_l1.c: Regenerated. * generated/maxval_i16.c: Regenerated. * generated/maxval_i1.c: Regenerated. * generated/minloc1_4_i4.c: Regenerated. * generated/any_l1.c: Regenerated. * generated/minloc1_8_i2.c: Regenerated. * generated/product_c16.c: Regenerated. * generated/product_r10.c: Regenerated. * generated/product_i1.c: Regenerated. * generated/all_l8.c: Regenerated. * generated/maxval_r4.c: Regenerated. Added: trunk/gcc/testsuite/gfortran.dg/norm2_1.f90 trunk/gcc/testsuite/gfortran.dg/norm2_2.f90 trunk/gcc/testsuite/gfortran.dg/norm2_3.f90 trunk/gcc/testsuite/gfortran.dg/norm_4.f90 trunk/gcc/testsuite/gfortran.dg/parity_1.f90 trunk/gcc/testsuite/gfortran.dg/parity_2.f90 trunk/gcc/testsuite/gfortran.dg/parity_3.f90 trunk/libgfortran/generated/norm2_r10.c trunk/libgfortran/generated/norm2_r16.c trunk/libgfortran/generated/norm2_r4.c trunk/libgfortran/generated/norm2_r8.c trunk/libgfortran/generated/parity_l1.c trunk/libgfortran/generated/parity_l16.c trunk/libgfortran/generated/parity_l2.c trunk/libgfortran/generated/parity_l4.c trunk/libgfortran/generated/parity_l8.c trunk/libgfortran/m4/norm2.m4 trunk/libgfortran/m4/parity.m4 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/check.c trunk/gcc/fortran/gfortran.h trunk/gcc/fortran/intrinsic.c trunk/gcc/fortran/intrinsic.h trunk/gcc/fortran/intrinsic.texi trunk/gcc/fortran/iresolve.c trunk/gcc/fortran/simplify.c trunk/gcc/fortran/trans-intrinsic.c trunk/gcc/testsuite/ChangeLog trunk/libgfortran/ChangeLog trunk/libgfortran/Makefile.am trunk/libgfortran/Makefile.in trunk/libgfortran/generated/all_l1.c trunk/libgfortran/generated/all_l16.c trunk/libgfortran/generated/all_l2.c trunk/libgfortran/generated/all_l4.c trunk/libgfortran/generated/all_l8.c trunk/libgfortran/generated/any_l1.c trunk/libgfortran/generated/any_l16.c trunk/libgfortran/generated/any_l2.c trunk/libgfortran/generated/any_l4.c trunk/libgfortran/generated/any_l8.c trunk/libgfortran/generated/count_16_l.c trunk/libgfortran/generated/count_1_l.c trunk/libgfortran/generated/count_2_l.c trunk/libgfortran/generated/count_4_l.c trunk/libgfortran/generated/count_8_l.c trunk/libgfortran/generated/maxloc1_16_i1.c trunk/libgfortran/generated/maxloc1_16_i16.c trunk/libgfortran/generated/maxloc1_16_i2.c trunk/libgfortran/generated/maxloc1_16_i4.c trunk/libgfortran/generated/maxloc1_16_i8.c trunk/libgfortran/generated/maxloc1_16_r10.c trunk/libgfortran/generated/maxloc1_16_r16.c trunk/libgfortran/generated/maxloc1_16_r4.c trunk/libgfortran/generated/maxloc1_16_r8.c trunk/libgfortran/generated/maxloc1_4_i1.c trunk/libgfortran/generated/maxloc1_4_i16.c trunk/libgfortran/generated/maxloc1_4_i2.c trunk/libgfortran/generated/maxloc1_4_i4.c trunk/libgfortran/generated/maxloc1_4_i8.c trunk/libgfortran/generated/maxloc1_4_r10.c trunk/libgfortran/generated/maxloc1_4_r16.c trunk/libgfortran/generated/maxloc1_4_r4.c trunk/libgfortran/generated/maxloc1_4_r8.c trunk/libgfortran/generated/maxloc1_8_i1.c trunk/libgfortran/generated/maxloc1_8_i16.c trunk/libgfortran/generated/maxloc1_8_i2.c trunk/libgfortran/generated/maxloc1_8_i4.c trunk/libgfortran/generated/maxloc1_8_i8.c trunk/libgfortran/generated/maxloc1_8_r10.c trunk/libgfortran/generated/maxloc1_8_r16.c trunk/libgfortran/generated/maxloc1_8_r4.c trunk/libgfortran/generated/maxloc1_8_r8.c trunk/libgfortran/generated/maxval_i1.c trunk/libgfortran/generated/maxval_i16.c trunk/libgfortran/generated/maxval_i2.c trunk/libgfortran/generated/maxval_i4.c trunk/libgfortran/generated/maxval_i8.c trunk/libgfortran/generated/maxval_r10.c trunk/libgfortran/generated/maxval_r16.c trunk/libgfortran/generated/maxval_r4.c trunk/libgfortran/generated/maxval_r8.c trunk/libgfortran/generated/minloc1_16_i1.c trunk/libgfortran/generated/minloc1_16_i16.c trunk/libgfortran/generated/minloc1_16_i2.c trunk/libgfortran/generated/minloc1_16_i4.c trunk/libgfortran/generated/minloc1_16_i8.c trunk/libgfortran/generated/minloc1_16_r10.c trunk/libgfortran/generated/minloc1_16_r16.c trunk/libgfortran/generated/minloc1_16_r4.c trunk/libgfortran/generated/minloc1_16_r8.c trunk/libgfortran/generated/minloc1_4_i1.c trunk/libgfortran/generated/minloc1_4_i16.c trunk/libgfortran/generated/minloc1_4_i2.c trunk/libgfortran/generated/minloc1_4_i4.c trunk/libgfortran/generated/minloc1_4_i8.c trunk/libgfortran/generated/minloc1_4_r10.c trunk/libgfortran/generated/minloc1_4_r16.c trunk/libgfortran/generated/minloc1_4_r4.c trunk/libgfortran/generated/minloc1_4_r8.c trunk/libgfortran/generated/minloc1_8_i1.c trunk/libgfortran/generated/minloc1_8_i16.c trunk/libgfortran/generated/minloc1_8_i2.c trunk/libgfortran/generated/minloc1_8_i4.c trunk/libgfortran/generated/minloc1_8_i8.c trunk/libgfortran/generated/minloc1_8_r10.c trunk/libgfortran/generated/minloc1_8_r16.c trunk/libgfortran/generated/minloc1_8_r4.c trunk/libgfortran/generated/minloc1_8_r8.c trunk/libgfortran/generated/minval_i1.c trunk/libgfortran/generated/minval_i16.c trunk/libgfortran/generated/minval_i2.c trunk/libgfortran/generated/minval_i4.c trunk/libgfortran/generated/minval_i8.c trunk/libgfortran/generated/minval_r10.c trunk/libgfortran/generated/minval_r16.c trunk/libgfortran/generated/minval_r4.c trunk/libgfortran/generated/minval_r8.c trunk/libgfortran/generated/product_c10.c trunk/libgfortran/generated/product_c16.c trunk/libgfortran/generated/product_c4.c trunk/libgfortran/generated/product_c8.c trunk/libgfortran/generated/product_i1.c trunk/libgfortran/generated/product_i16.c trunk/libgfortran/generated/product_i2.c trunk/libgfortran/generated/product_i4.c trunk/libgfortran/generated/product_i8.c trunk/libgfortran/generated/product_r10.c trunk/libgfortran/generated/product_r16.c trunk/libgfortran/generated/product_r4.c trunk/libgfortran/generated/product_r8.c trunk/libgfortran/generated/sum_c10.c trunk/libgfortran/generated/sum_c16.c trunk/libgfortran/generated/sum_c4.c trunk/libgfortran/generated/sum_c8.c trunk/libgfortran/generated/sum_i1.c trunk/libgfortran/generated/sum_i16.c trunk/libgfortran/generated/sum_i2.c trunk/libgfortran/generated/sum_i4.c trunk/libgfortran/generated/sum_i8.c trunk/libgfortran/generated/sum_r10.c trunk/libgfortran/generated/sum_r16.c trunk/libgfortran/generated/sum_r4.c trunk/libgfortran/generated/sum_r8.c trunk/libgfortran/gfortran.map trunk/libgfortran/m4/all.m4 trunk/libgfortran/m4/any.m4 trunk/libgfortran/m4/count.m4 trunk/libgfortran/m4/ifunction.m4 trunk/libgfortran/m4/maxloc1.m4 trunk/libgfortran/m4/maxval.m4 trunk/libgfortran/m4/minloc1.m4 trunk/libgfortran/m4/minval.m4 trunk/libgfortran/m4/product.m4 -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33197
