symbol.c (gfc_get_default_type): Fix error message...

2008-03-28  Tobias Burnus  <burnus@net-b.de>

       * symbol.c (gfc_get_default_type): Fix error message; option
       -fallow_leading_underscore should be -fallow-leading-underscore

From-SVN: r133678
This commit is contained in:
Tobias Burnus 2008-03-28 11:12:05 +01:00 committed by Tobias Burnus
parent fc4f326169
commit b0be8e5c63
2 changed files with 6 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2008-03-28 Tobias Burnus <burnus@net-b.de>
* symbol.c (gfc_get_default_type): Fix error message; option
-fallow_leading_underscore should be -fallow-leading-underscore
2008-03-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2008-03-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35724 PR fortran/35724

View File

@ -212,7 +212,7 @@ gfc_get_default_type (gfc_symbol *sym, gfc_namespace *ns)
letter = sym->name[0]; letter = sym->name[0];
if (gfc_option.flag_allow_leading_underscore && letter == '_') if (gfc_option.flag_allow_leading_underscore && letter == '_')
gfc_internal_error ("Option -fallow_leading_underscore is for use only by " gfc_internal_error ("Option -fallow-leading-underscore is for use only by "
"gfortran developers, and should not be used for " "gfortran developers, and should not be used for "
"implicitly typed variables"); "implicitly typed variables");