diff options
Diffstat (limited to 'gcc/fortran/gfortranspec.c')
| -rw-r--r-- | gcc/fortran/gfortranspec.c | 33 |
1 files changed, 2 insertions, 31 deletions
diff --git a/gcc/fortran/gfortranspec.c b/gcc/fortran/gfortranspec.c index 1f67acc1513..61f1547c87c 100644 --- a/gcc/fortran/gfortranspec.c +++ b/gcc/fortran/gfortranspec.c @@ -244,7 +244,7 @@ append_arg (const char *arg) } if (g77_newargc == newargsize) - fatal_error ("overflowed output arg list for '%s'", arg); + fatal_error ("overflowed output arg list for %qs", arg); g77_newargv[g77_newargc++] = arg; } @@ -402,7 +402,7 @@ For more information about these matters, see the file named COPYING\n\n")); if (i + skip < argc) i += skip; else - fatal_error ("argument to '%s' missing", argv[i]); + fatal_error ("argument to %qs missing", argv[i]); } if ((n_outfiles != 0) && (n_infiles == 0)) @@ -424,35 +424,6 @@ For more information about these matters, see the file named COPYING\n\n")); continue; } - if ((argv[i][0] == '-') && (argv[i][1] == 'M')) - { - char *p; - - warning (0, "using -M <directory> is deprecated, use -J instead"); - if (argv[i][2] == '\0') - { - if (i+1 < argc) - { - p = XNEWVEC (char, strlen (argv[i + 1]) + 3); - p[0] = '-'; - p[1] = 'J'; - strcpy (&p[2], argv[i + 1]); - i++; - } - else - fatal_error ("argument to '%s' missing", argv[i]); - } - else - { - p = XNEWVEC (char, strlen (argv[i]) + 1); - p[0] = '-'; - p[1] = 'J'; - strcpy (&p[2], argv[i] + 2); - } - append_arg (p); - continue; - } - if ((argv[i][0] == '-') && (argv[i][1] != 'l')) { /* Not a filename or library. */ |