Index: intrinsics/pack_generic.c
===================================================================
--- intrinsics/pack_generic.c	(revision 164213)
+++ intrinsics/pack_generic.c	(working copy)
@@ -374,6 +373,7 @@ pack (gfc_array_char *ret, const gfc_arr
 	{
 	  pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array,
 		   (gfc_array_l1 *) mask, (gfc_array_i8 *) vector);
+	  return;
 	}
 
 #ifdef HAVE_GFC_INTEGER_16