diff options
| author | Alexander Kabaev <kan@FreeBSD.org> | 2003-07-11 03:40:53 +0000 |
|---|---|---|
| committer | Alexander Kabaev <kan@FreeBSD.org> | 2003-07-11 03:40:53 +0000 |
| commit | bd0df3aa27aac083bd60b649fa5347076a5126eb (patch) | |
| tree | f6b0610f4a17fd26aa234354f050080f789861a4 /contrib/gcc/f/std.c | |
| parent | fabd8bcd49e1046bc9abdcb4efaea04638630b6f (diff) | |
Gcc 3.3.1-pre as of 2003-07-11.
Notes
Notes:
svn path=/vendor/gcc/dist/; revision=117395
Diffstat (limited to 'contrib/gcc/f/std.c')
| -rw-r--r-- | contrib/gcc/f/std.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/contrib/gcc/f/std.c b/contrib/gcc/f/std.c index db8c723cf9ed..bd2add21f652 100644 --- a/contrib/gcc/f/std.c +++ b/contrib/gcc/f/std.c @@ -1,5 +1,5 @@ /* std.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 1996, 2000 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 2000, 2002 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -4774,9 +4774,7 @@ ffestd_S3P4 (ffebld filename) fi = ffecom_open_include (ffewhere_file_name (wf), ffelex_token_where_line (ffesta_tokens[0]), ffelex_token_where_column (ffesta_tokens[0])); - if (fi == NULL) - ffewhere_file_kill (wf); - else + if (fi != NULL) ffelex_set_include (wf, (ffelex_token_type (ffesta_tokens[0]) == FFELEX_typeNAME), fi); } |