diff options
Diffstat (limited to 'gcc/fortran/gfortranspec.c')
| -rw-r--r-- | gcc/fortran/gfortranspec.c | 48 |
1 files changed, 25 insertions, 23 deletions
diff --git a/gcc/fortran/gfortranspec.c b/gcc/fortran/gfortranspec.c index 4a37164fe9a..645e3b2d404 100644 --- a/gcc/fortran/gfortranspec.c +++ b/gcc/fortran/gfortranspec.c @@ -1,5 +1,5 @@ /* Specific flags and argument handling of the Fortran front-end. - Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 + Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. This file is part of GCC. @@ -18,6 +18,7 @@ You should have received a copy of the GNU General Public License along with GNU CC; see the file COPYING. If not, write to the Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + /* This file is copied more or less verbatim from g77. */ /* This file contains a filter for the main `gcc' driver, which is replicated for the `gfortran' driver by adding this filter. The purpose @@ -160,7 +161,7 @@ lookup_option (Option *xopt, int *xskip, const char **xarg, const char *text) opt = OPTION_x, arg = text + 2; else { - if ((skip = WORD_SWITCH_TAKES_ARG (text + 1)) != 0) /* See gcc.c. */ + if ((skip = WORD_SWITCH_TAKES_ARG (text + 1)) != 0) /* See gcc.c. */ ; else if (!strcmp (text, "-fhelp")) /* Really --help!! */ opt = OPTION_help; @@ -346,7 +347,7 @@ lang_specific_driver (int *in_argc, const char *const **in_argv, case OPTION_version: printf ("GNU Fortran 95 (GCC) %s\n", version_string); printf ("Copyright %s 2006 Free Software Foundation, Inc.\n\n", - _("(C)")); + _("(C)")); printf (_("GNU Fortran comes with NO WARRANTY, to the extent permitted by law.\n\ You may redistribute copies of GNU Fortran\n\ under the terms of the GNU General Public License.\n\ @@ -364,7 +365,7 @@ For more information about these matters, see the file named COPYING\n\n")); } /* This is the one place we check for missing arguments in the - program. */ + program. */ if (i + skip < argc) i += skip; @@ -392,25 +393,25 @@ For more information about these matters, see the file named COPYING\n\n")); } if ((argv[i][0] == '-') && (argv[i][1] == 'M')) - { - char *p; - - if (argv[i][2] == '\0') - { - p = XNEWVEC (char, strlen (argv[i + 1]) + 2); - p[0] = '-'; - p[1] = 'J'; - strcpy (&p[2], argv[i + 1]); - i++; - } - else - { - p = XNEWVEC (char, strlen (argv[i]) + 1); - strcpy (p, argv[i]); - } - append_arg (p); - continue; - } + { + char *p; + + if (argv[i][2] == '\0') + { + p = XNEWVEC (char, strlen (argv[i + 1]) + 2); + p[0] = '-'; + p[1] = 'J'; + strcpy (&p[2], argv[i + 1]); + i++; + } + else + { + p = XNEWVEC (char, strlen (argv[i]) + 1); + strcpy (p, argv[i]); + } + append_arg (p); + continue; + } if ((argv[i][0] == '-') && (argv[i][1] != 'l')) { @@ -535,6 +536,7 @@ For more information about these matters, see the file named COPYING\n\n")); *in_argv = g77_newargv; } + /* Called before linking. Returns 0 on success and -1 on failure. */ int lang_specific_pre_link (void) /* Not used for F77. */ |