interface.c, [...]: Update Copyright years.

2007-01-08  Steven G. Kargl  <kargl@gcc.gnu.org>

    * interface.c, intrinsic.c, gfortranspec.c, io.c, f95-lang.c,
    iresolve.c, match.c:  Update Copyright years.  Whitespace.

From-SVN: r120587

1 files changed, 25 insertions, 23 deletions

diff --git a/gcc/fortran/gfortranspec.c b/gcc/fortran/gfortranspec.c
index 4a37164..645e3b2 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.  */