iresolve.c (gfc_resolve_all, [...]): Use PREFIX.

[thirdparty/gcc.git] / libgfortran / intrinsics / eoshift0.c

diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c
index df749a4072c8be693810d251d078a50ff32c7712..66f0ab1f6eaf27b828accbf8b32615e7442f7cf8 100644 (file)
--- a/libgfortran/intrinsics/eoshift0.c
+++ b/libgfortran/intrinsics/eoshift0.c
@@ -32,8 +32,8 @@ static const char zeros[16] =
    sizeof(int) < sizeof (index_type).  */
 
 static void
-__eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
-    int shift, const char * pbound, int which)
+eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
+         int shift, const char * pbound, int which)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS - 1];
@@ -187,28 +187,28 @@ __eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
     }
 }
 
-extern void __eoshift0_4 (gfc_array_char *, const gfc_array_char *,
-                         const GFC_INTEGER_4 *, const char *,
-                         const GFC_INTEGER_4 *);
-export_proto_np(__eoshift0_4);
+extern void eoshift0_4 (gfc_array_char *, const gfc_array_char *,
+                       const GFC_INTEGER_4 *, const char *,
+                       const GFC_INTEGER_4 *);
+export_proto(eoshift0_4);
 
 void
-__eoshift0_4 (gfc_array_char * ret, const gfc_array_char * array,
-    const GFC_INTEGER_4 * pshift, const char * pbound,
-    const GFC_INTEGER_4 * pdim)
+eoshift0_4 (gfc_array_char *ret, const gfc_array_char *array,
+           const GFC_INTEGER_4 *pshift, const char *pbound,
+           const GFC_INTEGER_4 *pdim)
 {
-  __eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
+  eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
 }
 
-extern void __eoshift0_8 (gfc_array_char *, const gfc_array_char *,
-                         const GFC_INTEGER_8 *, const char *,
-                         const GFC_INTEGER_8 *);
-export_proto_np(__eoshift0_8);
+extern void eoshift0_8 (gfc_array_char *, const gfc_array_char *,
+                       const GFC_INTEGER_8 *, const char *,
+                       const GFC_INTEGER_8 *);
+export_proto(eoshift0_8);
 
 void
-__eoshift0_8 (gfc_array_char * ret, const gfc_array_char * array,
-    const GFC_INTEGER_8 * pshift, const char * pbound,
-    const GFC_INTEGER_8 * pdim)
+eoshift0_8 (gfc_array_char *ret, const gfc_array_char *array,
+           const GFC_INTEGER_8 *pshift, const char *pbound,
+           const GFC_INTEGER_8 *pdim)
 {
-  __eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
+  eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
 }