Permalink
Browse files

added -fimplicit-none, synonynous of -Wimplicit, which is misleading …

…(it is _not_ a warning option). Also made description of -fqkind clearer.
  • Loading branch information...
1 parent 041c1a0 commit 040e75e9a1c376b778599062940eadf3d28ffc14 arnaud02 committed Jul 15, 2002
Showing with 7 additions and 4 deletions.
  1. +5 −3 lang-options.h
  2. +2 −1 misc.c
View
@@ -27,8 +27,7 @@ DEFINE_LANG_NAME ("GNU Fortran 95")
{ "-Waliasing",
N_("Warn about possible aliasing of dummy arguments") },
{ "-Wimplicit",
- N_("Specify that no implicit typing is allowed, unless overridden by "
- "explicit IMPLICIT statements") },
+ N_("Same as -fimplicit-none") },
{ "-Wsurprising",
N_("Warn about \"suspicious\" constructs") },
{ "-std=F",
@@ -45,10 +44,13 @@ DEFINE_LANG_NAME ("GNU Fortran 95")
N_("Assume that the source file is free form") },
{ "-ffixed-form",
N_("Assume that the source file is fixed form") },
+{ "-fimplicit-none",
+ N_("Specify that no implicit typing is allowed, unless overridden by "
+ "explicit IMPLICIT statements") },
{ "-fmodule-private",
N_("Set default accessibility of module entities to PRIVATE") },
{ "-fqkind=<n>",
- N_("Set the kind for a real with the 'q' exponent") },
+ N_("Set the kind for a real with the 'q' exponent to 'n'") },
{ "-fpack-derived",
N_("Try to layout derived types as compact as possible") },
{ "-fmax-stack-var-size=<n>",
View
3 misc.c
@@ -403,7 +403,8 @@ int i;
return 1;
}
- if (strcmp(option, "-Wimplicit") == 0) {
+ if (strcmp(option, "-fimplicit-none") == 0 ||
+ strcmp(option, "-Wimplicit") == 0) {
g95_option.implicit_none = 1;
return 1;
}

0 comments on commit 040e75e

Please sign in to comment.