diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-25 17:05:10 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-25 17:05:10 +0000 |
| commit | 0d8ca6ab8ff5ac1f4839aa42f05fd366ad100b86 (patch) | |
| tree | f829815ebbd78c2cba3d70da5c55d9d5439b5f9b /libgfortran/libgfortran.h | |
| parent | 1e5ec9ee3f16455cf9ab831de590217fb9b6da97 (diff) | |
| download | gcc-0d8ca6ab8ff5ac1f4839aa42f05fd366ad100b86.tar.gz | |
2009-08-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34670
* runtime/bounds.c (count_0): New function.
* intrinsics/unpack_generic (unpack_bounds): New function.
(unpack_internal): Remove zero stride checks.
(unpack1): Use unpack_bounds.
(unpack1_char): Likeweise.
(unpack1_char4): Likewise
(unpack0): Likewise.
(unpack0_char): Likewise.
(unpack0_char4): Likewise.
2009-08-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34670
* gfortran.dg/unpack_bounds_1.f90: New test.
* gfortran.dg/unpack_bounds_2.f90: New test.
* gfortran.dg/unpack_bounds_3.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151085 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 439c791fca2..40cb080a78c 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -1282,6 +1282,10 @@ extern void bounds_ifunction_return (array_t *, const index_type *, const char *, const char *); internal_proto(bounds_ifunction_return); +extern index_type count_0 (const gfc_array_l1 *); + +internal_proto(count_0); + /* Internal auxiliary functions for cshift */ void cshift0_i1 (gfc_array_i1 *, const gfc_array_i1 *, ssize_t, int); |