[Bug libfortran/40187] c_f_pointer with stride in SHAPE

[tkoenig at gcc dot gnu dot org]

------- Comment #7 from tkoenig at gcc dot gnu dot org  2009-05-30 13:17 -------
Subject: Bug 40187

Author: tkoenig
Date: Sat May 30 13:17:14 2009
New Revision: 148002

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=148002
Log:
2009-05-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

        PR fortran/37577
        PR libfortran/40187
        * runtime/in_pack_generic (internal_pack):  Remove unnecessary
        test for stride == 0.
        * runtime/in_unpack_generic.c (internal_unpack):  Likewise.
        * intrinsics/iso_c_binding.c (c_f_pointer_u0):  Take care
        of stride in "shape" argument.  Use array access macros for
        accessing array descriptors.
        * libgfortran.h (struct descriptor_dimension):  Change stride
        to _stride, lbound to _lbound and ubound to _ubound.
        (GFC_DIMENSION_LBOUND):  Use new name(s) in struct
        descriptor_dimension.
        (GFC_DIMENSION_UBOUND):  Likewise.
        (GFC_DIMENSION_STRIDE):  Likewise.
        (GFC_DIMENSION_EXTENT):  Likewise.
        (GFC_DIMENSION_SET):  Likewise.
        (GFC_DESCRIPTOR_LBOUND):  Likewise.
        (GFC_DESCRIPTOR_UBOUND):  Likewise.
        (GFC_DESCRIPTOR_EXTENT):  Likewise.
        (GFC_DESCRIPTOR_STRIDE):  Likewise.
        * io/transfer.c (transfer_array):  Use array access macros.
        Use byte-sized strides.

2009-05-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

        PR libfortran/40187
        * gfortran.dg/c_f_pointer_shape_tests_4.f03:  New file.
        * gfortran.dg/c_f_pointer_shape_tests_4_driver.c:  New file.


Added:
   
branches/fortran-dev/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4.f03
   
branches/fortran-dev/gcc/testsuite/gfortran.dg/c_f_pointer_shape_tests_4_driver.c
Modified:
    branches/fortran-dev/gcc/testsuite/ChangeLog.fortran-dev
    branches/fortran-dev/libgfortran/ChangeLog.dev
    branches/fortran-dev/libgfortran/intrinsics/iso_c_binding.c
    branches/fortran-dev/libgfortran/io/transfer.c
    branches/fortran-dev/libgfortran/libgfortran.h
    branches/fortran-dev/libgfortran/runtime/in_pack_generic.c
    branches/fortran-dev/libgfortran/runtime/in_unpack_generic.c


-- 


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