diff options
author | kan <kan@FreeBSD.org> | 2007-05-19 02:42:17 +0000 |
---|---|---|
committer | kan <kan@FreeBSD.org> | 2007-05-19 02:42:17 +0000 |
commit | 23d2c3da1f7f0d51240001b45f58c6cff4fe3e63 (patch) | |
tree | 41575ffecef07c082c68233211796795f842031b /contrib/gcc/f/parse.c | |
parent | fb9b6e57a19022900e35918d4078e215b9007664 (diff) | |
download | FreeBSD-src-23d2c3da1f7f0d51240001b45f58c6cff4fe3e63.zip FreeBSD-src-23d2c3da1f7f0d51240001b45f58c6cff4fe3e63.tar.gz |
This commit was generated by cvs2svn to compensate for changes in r169708,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'contrib/gcc/f/parse.c')
-rw-r--r-- | contrib/gcc/f/parse.c | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/contrib/gcc/f/parse.c b/contrib/gcc/f/parse.c deleted file mode 100644 index d822773..0000000 --- a/contrib/gcc/f/parse.c +++ /dev/null @@ -1,49 +0,0 @@ -/* GNU Fortran - Copyright (C) 1995 Free Software Foundation, Inc. - Contributed by James Craig Burley. - -This file is part of GNU Fortran. - -GNU Fortran is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GNU Fortran; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -02111-1307, USA. */ - -#include "proj.h" -#include "top.h" -#include "com.h" -#include "where.h" -#include "version.h" -#include "flags.h" - -extern FILE *finput; - -void -ffe_parse_file (int set_yydebug ATTRIBUTE_UNUSED) -{ - const char *fname; - ffewhereFile wf; - - if (ffe_is_version ()) - fprintf (stderr, "GNU Fortran Front End version %s\n", version_string); - - if (!ffe_is_pedantic ()) - ffe_set_is_pedantic (pedantic); - - fname = main_input_filename ? main_input_filename : "<stdin>"; - wf = ffewhere_file_new (fname, strlen (fname)); - ffecom_file (fname); - ffe_file (wf, finput); - - ffecom_finish_compile (); -} |