| commit | a965f64afc2f9cd327c7bfb61c3d6dda8b7acd20 | |
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 4 Oct 2004 19:27:29 +0000 (4 19:27 +0000) | ||
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 4 Oct 2004 19:27:29 +0000 (4 19:27 +0000) | ||
| tree | f997c7996452c6a047a1c132b79457094d5ea30b | treesnapshot (tar.gz zip) |
| parent | bc868c0b87a97bd3136f417e6feb6d39bd5a05aa | commitdiff |
PR fortran/17283
fortran/
* iresolve.c (gfc_resolve_pack): Choose function depending if mask is
scalar.
libgfortran/
* intrinsics/pack_generic.c (__pack): Allocate memory for return array
if not done by caller.
(__pack_s): New function.
* runtime/memory.c (internal_malloc, internal_malloc64): Allow
allocating zero memory.
testsuite/
* gfortran.fortran-torture/execute/intrinsic_pack.f90: Add more tests.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88526 138bc75d-0d04-0410-961f-82ee72b054a4
fortran/
* iresolve.c (gfc_resolve_pack): Choose function depending if mask is
scalar.
libgfortran/
* intrinsics/pack_generic.c (__pack): Allocate memory for return array
if not done by caller.
(__pack_s): New function.
* runtime/memory.c (internal_malloc, internal_malloc64): Allow
allocating zero memory.
testsuite/
* gfortran.fortran-torture/execute/intrinsic_pack.f90: Add more tests.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88526 138bc75d-0d04-0410-961f-82ee72b054a4