2005-06-11 Thomas Koenig <Thomas.Koenig@onlinde.de>
commitf27ef64358c7b216ba0a11142364436a0aaebc33
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 11 Jun 2005 19:39:13 +0000 (11 19:39 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 11 Jun 2005 19:39:13 +0000 (11 19:39 +0000)
treeaad494096555f7a4cc32786401cfade71ce1dc21
parente5897c9259ebb0cfbb7fc82e9eeb3a95adcd4842
2005-06-11  Thomas Koenig  <Thomas.Koenig@onlinde.de>

PR libfortran/21333
* Makefile.am: Add in_pack_c4.c, in_pack_c8.c, in_unpack_c4.c
and in_unpack_c8.c.
* Makefile.in: Regenerate.
* libgfortran.h:  Declare internal_pack_c4, internal_pack_c8,
internal_unpack_c4 and internal_unpack_c8.
* m4/in_pack.m4: Use rtype_ccode insteald of rtype_kind
in function name.
Use sizeof (rtype_name) as size for memory allocation.
* m4/in_unpack.m4: Use rtype_ccode insteald of rtype_kind
in function name.
Use sizeof (rtype_name) for calculation of sizes for memcpy.
* runtime/in_pack_generic.c:  For real, integer and logical
call internal_pack_4 if size==4 and internal_pack_8 if
size==8.
For complex, call internal_pack_c4 if size==8 and
internal_pack_c8 if size==16.
* runtime/in_unpack_generic.c: For real, integer and logical
        call internal_unpack_4 if size==4 and internal_unpack_8 if
        size==8.
        For complex, call internal_unpack_c4 if size==8 and
        internal_unpack_c8 if size==16.
* generated/in_pack_i4.c:  Regenerated.
* generated/in_pack_i8.c:  Regenerated.
* generated/in_unpack_i4.c:  Regenerated.
* generated/in_unpack_i8.c:  Regenerated.
* generated/in_pack_c4.c:  New file.
* generated/in_pack_c8.c:  New file.
* generated/in_unpack_c4.c:  New file.
* generated/in_unpack_c8.c:  New file.

2005-05-11  Thomas Koenig  <Thomas.Koenig@online.de>

* gfortran.fortran-torture/execute/in-pack.f90:  New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100842 138bc75d-0d04-0410-961f-82ee72b054a4
17 files changed:
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.fortran-torture/execute/in-pack.f90 [new file with mode: 0644]
libgfortran/Makefile.am
libgfortran/Makefile.in
libgfortran/generated/in_pack_c4.c [copied from libgfortran/generated/in_pack_i8.c with 93% similarity]
libgfortran/generated/in_pack_c8.c [copied from libgfortran/generated/in_pack_i8.c with 93% similarity]
libgfortran/generated/in_pack_i4.c
libgfortran/generated/in_pack_i8.c
libgfortran/generated/in_unpack_c4.c [copied from libgfortran/generated/in_unpack_i4.c with 95% similarity]
libgfortran/generated/in_unpack_c8.c [copied from libgfortran/generated/in_unpack_i4.c with 95% similarity]
libgfortran/generated/in_unpack_i4.c
libgfortran/generated/in_unpack_i8.c
libgfortran/libgfortran.h
libgfortran/m4/in_pack.m4
libgfortran/m4/in_unpack.m4
libgfortran/runtime/in_pack_generic.c
libgfortran/runtime/in_unpack_generic.c