Unrevert previously reversed patch, adding this patch:

[gcc.git] / gcc / fortran / intrinsic.h

diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h
index 0c4472afd73a6d6321714cf8dc5b5a5e1036cb63..3f5fcba3736cda29ab85a7408c5b123831ba8bf6 100644 (file)
--- a/gcc/fortran/intrinsic.h
+++ b/gcc/fortran/intrinsic.h
@@ -368,6 +368,6 @@ void gfc_resolve_unlink_sub (gfc_code *);
 
 #define MAX_INTRINSIC_ARGS 5
 
-extern char *gfc_current_intrinsic,
-  *gfc_current_intrinsic_arg[MAX_INTRINSIC_ARGS];
+extern const char *gfc_current_intrinsic;
+extern const char *gfc_current_intrinsic_arg[MAX_INTRINSIC_ARGS];
 extern locus *gfc_current_intrinsic_where;