diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-09-12 12:57:52 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-09-12 12:57:52 +0000 |
| commit | 075abad5eeda59a71431e749ff167e15f7904962 (patch) | |
| tree | 4ab8ffee705f2ca0901692b18931ce1a5436125f /libgfortran/intrinsics/pack_generic.c | |
| parent | 457e68e7b23a336d0e4ff2f127d7136690761a52 (diff) | |
| download | gcc-075abad5eeda59a71431e749ff167e15f7904962.zip gcc-075abad5eeda59a71431e749ff167e15f7904962.tar.gz gcc-075abad5eeda59a71431e749ff167e15f7904962.tar.bz2 | |
pack_generic.c (pack): Add missing return and fix whitespace.
* intrinsics/pack_generic.c (pack): Add missing return and fix whitespace.
* intrinsics/cshift0.c (cshift0): Fix whitespace.
* intrinsics/unpack_generic.c (unpack1, unpack0): Fix whitespace.
From-SVN: r164230
Diffstat (limited to 'libgfortran/intrinsics/pack_generic.c')
| -rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index ee6a483..1b872ec 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -273,14 +273,12 @@ pack (gfc_array_char *ret, const gfc_array_char *array, case GFC_DTYPE_LOGICAL_4: case GFC_DTYPE_INTEGER_4: - pack_i4 ((gfc_array_i4 *) ret, (gfc_array_i4 *) array, (gfc_array_l1 *) mask, (gfc_array_i4 *) vector); return; case GFC_DTYPE_LOGICAL_8: case GFC_DTYPE_INTEGER_8: - pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array, (gfc_array_l1 *) mask, (gfc_array_i8 *) vector); return; @@ -288,11 +286,11 @@ pack (gfc_array_char *ret, const gfc_array_char *array, #ifdef HAVE_GFC_INTEGER_16 case GFC_DTYPE_LOGICAL_16: case GFC_DTYPE_INTEGER_16: - pack_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array, (gfc_array_l1 *) mask, (gfc_array_i16 *) vector); return; #endif + case GFC_DTYPE_REAL_4: pack_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) array, (gfc_array_l1 *) mask, (gfc_array_r4 *) vector); @@ -316,6 +314,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, (gfc_array_l1 *) mask, (gfc_array_r16 *) vector); return; #endif + case GFC_DTYPE_COMPLEX_4: pack_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array, (gfc_array_l1 *) mask, (gfc_array_c4 *) vector); @@ -374,6 +373,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, { pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array, (gfc_array_l1 *) mask, (gfc_array_i8 *) vector); + return; } #ifdef HAVE_GFC_INTEGER_16 |