* acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New.

[pf3gnuchains/gcc-fork.git] / libgfortran / intrinsics / pack_generic.c

diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c
index 75a8661..0332b79 100644 (file)
--- a/libgfortran/intrinsics/pack_generic.c
+++ b/libgfortran/intrinsics/pack_generic.c
@@ -65,6 +65,10 @@ Boston, MA 02111-1307, USA.  */
 There are two variants of the PACK intrinsic: one, where MASK is
 array valued, and the other one where MASK is scalar.  */
 
+extern void __pack (gfc_array_char *, const gfc_array_char *,
+                   const gfc_array_l4 *, const gfc_array_char *);
+export_proto_np(__pack);
+
 void
 __pack (gfc_array_char * ret, const gfc_array_char * array,
        const gfc_array_l4 * mask, const gfc_array_char * vector)
@@ -265,6 +269,10 @@ __pack (gfc_array_char * ret, const gfc_array_char * array,
     }
 }
 
+extern void __pack_s (gfc_array_char *ret, const gfc_array_char *array,
+                     const GFC_LOGICAL_4 *, const gfc_array_char *);
+export_proto_np(__pack_s);
+
 void
 __pack_s (gfc_array_char * ret, const gfc_array_char * array,
          const GFC_LOGICAL_4 * mask, const gfc_array_char * vector)