diff options
Diffstat (limited to 'libgfortran/intrinsics/pack_generic.c')
-rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 0332b79..6180135 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -65,13 +65,13 @@ 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); +extern void pack (gfc_array_char *, const gfc_array_char *, + const gfc_array_l4 *, const gfc_array_char *); +export_proto(pack); void -__pack (gfc_array_char * ret, const gfc_array_char * array, - const gfc_array_l4 * mask, const gfc_array_char * vector) +pack (gfc_array_char *ret, const gfc_array_char *array, + const gfc_array_l4 *mask, const gfc_array_char *vector) { /* r.* indicates the return array. */ index_type rstride0; @@ -269,13 +269,13 @@ __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); +extern void pack_s (gfc_array_char *ret, const gfc_array_char *array, + const GFC_LOGICAL_4 *, const gfc_array_char *); +export_proto(pack_s); void -__pack_s (gfc_array_char * ret, const gfc_array_char * array, - const GFC_LOGICAL_4 * mask, const gfc_array_char * vector) +pack_s (gfc_array_char *ret, const gfc_array_char *array, + const GFC_LOGICAL_4 *mask, const gfc_array_char *vector) { /* r.* indicates the return array. */ index_type rstride0; |