https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90539

--- Comment #45 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Wed May 29 20:30:45 2019
New Revision: 271751

URL: https://gcc.gnu.org/viewcvs?rev=271751&root=gcc&view=rev
Log:
2019-05-29  Thomas Koenig  <tkoe...@gcc.gnu.org>

        PR fortran/90539
        * gfortran.h (gfc_has_dimen_vector_ref): Add prototype.
        * trans.h (gfc_conv_subref_array_arg): Add argument check_contiguous.
        (gfc_conv_is_contiguous_expr): Add prototype.
        * frontend-passes.c (has_dimen_vector_ref): Remove prototype,
        rename to
        (gfc_has_dimen_vector_ref): New function name.
        (matmul_temp_args): Use gfc_has_dimen_vector_ref.
        (inline_matmul_assign): Likewise.
        * trans-array.c (gfc_conv_array_parameter): Also check for absence
        of a vector subscript before calling gfc_conv_subref_array_arg.
        Pass additional argument to gfc_conv_subref_array_arg.
        * trans-expr.c (gfc_conv_subref_array_arg): Add argument
        check_contiguous. If that is true, check if the argument
        is contiguous and do not repack in that case.
        * trans-intrinsic.c (gfc_conv_intrinsic_is_contiguous): Split
        away most of the work into, and call
        (gfc_conv_intrinsic_is_coniguous_expr): New function.

2019-05-29  Thomas Koenig  <tkoe...@gcc.gnu.org>

        PR fortran/90539
        * gfortran.dg/internal_pack_21.f90: Adjust scan patterns.
        * gfortran.dg/internal_pack_22.f90: New test.
        * gfortran.dg/internal_pack_23.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/internal_pack_22.f90
    trunk/gcc/testsuite/gfortran.dg/internal_pack_23.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/frontend-passes.c
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/trans-array.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-intrinsic.c
    trunk/gcc/fortran/trans.h
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/internal_pack_21.f90

Reply via email to