From 2f3b8279bf70fcd8c74b911c9d6d953bc1edd06e Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Wed, 19 Mar 2008 16:56:22 +0000 Subject: [PATCH] re PR libfortran/32972 (performance of pack/unpack) 2008-03-19 Thomas Koenig PR libfortran/32972 * runtime/in_pack_generic.c (internal_pack): Fix typo in last commit. From-SVN: r133345 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/runtime/in_pack_generic.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index baa99e2af2a..6a1865e0278 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-03-19 Thomas Koenig + + PR libfortran/32972 + * runtime/in_pack_generic.c (internal_pack): Fix typo in + last commit. + 2008-03-19 Thomas Koenig PR libfortran/32972 diff --git a/libgfortran/runtime/in_pack_generic.c b/libgfortran/runtime/in_pack_generic.c index ff02ec1d372..067cd280e08 100644 --- a/libgfortran/runtime/in_pack_generic.c +++ b/libgfortran/runtime/in_pack_generic.c @@ -81,7 +81,7 @@ internal_pack (gfc_array_char * source) #if defined(HAVE_GFC_INTEGER_16) case sizeof (GFC_INTEGER_16): - return internal_pack_16 (gfc_array_i16 *) source); + return internal_pack_16 ((gfc_array_i16 *) source); #endif } break; -- 2.30.2