gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.

[thirdparty/gcc.git] / gcc / fortran / match.c

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index e3d37d25c7e7db6297501fe0727cfc90f9f345fe..0fa1f634204a97c1a288fb953652f5b3886d0af3 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -392,7 +392,7 @@ gfc_match_name (char *buffer)
   gfc_gobble_whitespace ();
 
   c = gfc_next_char ();
-  if (!ISALPHA (c))
+  if (!(ISALPHA (c) || (c == '_' && gfc_option.flag_allow_leading_underscore)))
     {
       if (gfc_error_flag_test() == 0)
        gfc_error ("Invalid character in name at %C");