gcc-bugs@gcc.gnu.org
[Top] [All Lists]

[Bug fortran/19269] transpose(reshape(...)) of character array segfaults

Subject: [Bug fortran/19269] transpose(reshape(...)) of character array segfaults.
From: "cvs-commit at gcc dot gnu dot org"
Date: 13 Sep 2005 07:15:38 -0000
------- Additional Comments From cvs-commit at gcc dot gnu dot org  2005-09-13 
07:15 -------
Subject: Bug 19269

CVSROOT:        /cvs/gcc
Module name:    gcc
Changes by:     rsandifo@xxxxxxxxxxx    2005-09-13 07:15:02

Modified files:
        gcc/testsuite  : ChangeLog 
        libgfortran    : ChangeLog 
        gcc/fortran    : ChangeLog iresolve.c trans-array.c 
        libgfortran/intrinsics: cshift0.c eoshift0.c eoshift2.c 
                                pack_generic.c reshape_generic.c 
                                spread_generic.c transpose_generic.c 
                                unpack_generic.c 
        libgfortran/m4 : cshift1.m4 eoshift1.m4 eoshift3.m4 
        libgfortran/generated: cshift1_4.c cshift1_8.c eoshift1_4.c 
                               eoshift1_8.c eoshift3_4.c eoshift3_8.c 
Added files:
        gcc/testsuite/gfortran.dg: char_associated_1.f90 
                                   char_cshift_1.f90 char_cshift_2.f90 
                                   char_eoshift_1.f90 char_eoshift_2.f90 
                                   char_eoshift_3.f90 char_eoshift_4.f90 
                                   char_pack_1.f90 char_pack_2.f90 
                                   char_reshape_1.f90 char_spread_1.f90 
                                   char_transpose_1.f90 
                                   char_unpack_1.f90 char_unpack_2.f90 

Log message:
        gcc/fortran/
        PR target/19269
        * iresolve.c (gfc_resolve_cshift, gfc_resolve_eoshift)
        (gfc_resolve_pack, gfc_resolve_reshape, gfc_resolve_spread)
        (gfc_resolve_transpose, gfc_resolve_unpack): Add "_char" to the name
        for character-based operations.
        (gfc_resolve_pack): Remove ATTRIBUTE_UNUSED from array argument.
        (gfc_resolve_unpack): Copy the whole typespec from the vector.
        * trans-array.c (gfc_conv_expr_descriptor): In the EXPR_FUNCTION
        case, get the string length from the scalarization state.
        
        libgfortran/
        PR target/19269
        * intrinsics/cshift0.c (cshift0): Add an extra size argument.
        (cshift0_1, cshift0_2, cshift0_4, cshift0_8): Replace explicit
        implementations with...
        (DEFINE_CSHIFT): ...this new macro.  Define character versions too.
        * intrinsics/eoshift0.c (zeros): Delete.
        (eoshift0): Add extra size and filler arguments.  Use memset if no
        bound is provided.
        (eoshift0_1, eoshift0_2, eoshift0_4, eoshift0_8): Replace explicit
        implementations with...
        (DEFINE_EOSHIFT): ...this new macro.  Define character versions too.
        * intrinsics/eoshift2.c (zeros): Delete.
        (eoshift2): Add extra size and filler arguments.  Use memset if no
        bound is provided.
        (eoshift2_1, eoshift2_2, eoshift2_4, eoshift2_8): Replace explicit
        implementations with...
        (DEFINE_EOSHIFT): ...this new macro.  Define character versions too.
        * intrinsics/pack.c (pack_internal): New static function, reusing
        the contents of pack and adding an extra size argument.  Change
        "mptr" rather than "m" when calculating the array size.
        (pack): Redefine as a forwarder to pack_internal.
        (pack_s_internal): New static function, reusing the contents of
        pack_s and adding an extra size argument.
        (pack_s): Redefine as a forwarder to pack_s_internal.
        (pack_char, pack_s_char): New functions.
        * intrinsics/reshape.c (reshape_internal): New static function,
        reusing the contents of reshape and adding an extra size argument.
        (reshape): Redefine as a forwarder to reshape_internal.
        (reshape_char): New function.
        * intrinsics/spread.c (spread_internal): New static function,
        reusing the contents of spread and adding an extra size argument.
        (spread): Redefine as a forwarder to spread_internal.
        (spread_char): New function.
        * intrinsics/transpose.c (transpose_internal): New static function,
        reusing the contents of transpose and adding an extra size argument.
        (transpose): Redefine as a forwarder to transpose_internal.
        (transpose_char): New function.
        * intrinsics/unpack.c (unpack_internal): New static function, reusing
        the contents of unpack1 and adding extra size and fsize arguments.
        (unpack1): Redefine as a forwarder to unpack_internal.
        (unpack0): Call unpack_internal instead of unpack1.
        (unpack1_char, unpack0_char): New functions.
        * m4/cshift1.m4 (cshift1): New static function, reusing the contents
        of cshift1_<kind> and adding an extra size argument.
        (cshift1_<kind>): Redefine as a forwarder to cshift1.
        (cshift1_<kind>_char): New function.
        * m4/eoshift1.m4 (zeros): Delete.
        (eoshift1): New static function, reusing the contents of
        eoshift1_<kind> and adding extra size and filler arguments.
        Fix calculation of hstride.  Use memset if no bound is provided.
        (eoshift1_<kind>): Redefine as a forwarder to eoshift1.
        (eoshift1_<kind>_char): New function.
        * m4/eoshift3.m4 (zeros): Delete.
        (eoshift3): New static function, reusing the contents of
        eoshift3_<kind> and adding extra size and filler arguments.
        Use memset if no bound is provided.
        (eoshift3_<kind>): Redefine as a forwarder to eoshift3.
        (eoshift3_<kind>_char): New function.
        * generated/cshift1_4.c, generated/cshift1_8.c,
        * generated/eoshift1_4.c, generated/eoshift1_8.c,
        * generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerate.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.6052&r2=1.6053
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_associated_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_cshift_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_cshift_2.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_eoshift_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_eoshift_2.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_eoshift_3.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_eoshift_4.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_pack_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_pack_2.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_reshape_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_spread_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_transpose_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_unpack_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/char_unpack_2.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&r1=1.302&r2=1.303
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.550&r2=1.551
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/iresolve.c.diff?cvsroot=gcc&r1=1.38&r2=1.39
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-array.c.diff?cvsroot=gcc&r1=1.60&r2=1.61
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/intrinsics/cshift0.c.diff?cvsroot=gcc&r1=1.13&r2=1.14
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/intrinsics/eoshift0.c.diff?cvsroot=gcc&r1=1.16&r2=1.17
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/intrinsics/eoshift2.c.diff?cvsroot=gcc&r1=1.16&r2=1.17
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/intrinsics/pack_generic.c.diff?cvsroot=gcc&r1=1.11&r2=1.12
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/intrinsics/reshape_generic.c.diff?cvsroot=gcc&r1=1.10&r2=1.11
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/intrinsics/spread_generic.c.diff?cvsroot=gcc&r1=1.11&r2=1.12
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/intrinsics/transpose_generic.c.diff?cvsroot=gcc&r1=1.10&r2=1.11
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/intrinsics/unpack_generic.c.diff?cvsroot=gcc&r1=1.10&r2=1.11
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/m4/cshift1.m4.diff?cvsroot=gcc&r1=1.10&r2=1.11
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/m4/eoshift1.m4.diff?cvsroot=gcc&r1=1.13&r2=1.14
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/m4/eoshift3.m4.diff?cvsroot=gcc&r1=1.13&r2=1.14
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/generated/cshift1_4.c.diff?cvsroot=gcc&r1=1.9&r2=1.10
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/generated/cshift1_8.c.diff?cvsroot=gcc&r1=1.9&r2=1.10
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/generated/eoshift1_4.c.diff?cvsroot=gcc&r1=1.12&r2=1.13
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/generated/eoshift1_8.c.diff?cvsroot=gcc&r1=1.12&r2=1.13
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/generated/eoshift3_4.c.diff?cvsroot=gcc&r1=1.12&r2=1.13
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/generated/eoshift3_8.c.diff?cvsroot=gcc&r1=1.12&r2=1.13



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19269

<Prev in Thread] Current Thread [Next in Thread>