]> git.ipfire.org Git - thirdparty/gcc.git/blobdiff - libgfortran/generated/minval_r8.c
iresolve.c (gfc_resolve_all, [...]): Use PREFIX.
[thirdparty/gcc.git] / libgfortran / generated / minval_r8.c
index e30c43145809369a26bf1b54c1f7deb1b8b4ea8d..bd7b7e7f9e46858f53bbeb7d073798de217bcc69 100644 (file)
@@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA.  */
 #include "libgfortran.h"
 
 
-extern void __minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
-export_proto_np(__minval_r8);
+extern void minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+export_proto(minval_r8);
 
 void
-__minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS - 1];
   index_type extent[GFC_MAX_DIMENSIONS - 1];
@@ -151,12 +151,13 @@ __minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
 }
 
 
-extern void __mminval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
-                                               gfc_array_l4 *);
-export_proto_np(__mminval_r8);
+extern void mminval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
+                                              gfc_array_l4 *);
+export_proto(mminval_r8);
 
 void
-__mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask)
+mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
+                                 index_type *pdim, gfc_array_l4 * mask)
 {
   index_type count[GFC_MAX_DIMENSIONS - 1];
   index_type extent[GFC_MAX_DIMENSIONS - 1];