diff options
| author | andreao <andreao@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-20 15:55:41 +0000 |
|---|---|---|
| committer | andreao <andreao@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-20 15:55:41 +0000 |
| commit | f4f4b17469bc718e4525d8178a55d032167ae6c9 (patch) | |
| tree | edaa0d1f6aaaebef184277735b2f9eee4b8133dc /libgfortran/intrinsics/system.c | |
| parent | 7a8f426c0120cf9c92726ce9b5ba73a65cad8147 (diff) | |
merge from trunk revisions 127002-132392, 4/N
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/st/cli-be@146435 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics/system.c')
| -rw-r--r-- | libgfortran/intrinsics/system.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/libgfortran/intrinsics/system.c b/libgfortran/intrinsics/system.c index 49a5ba2a6d5..5b8ebabf425 100644 --- a/libgfortran/intrinsics/system.c +++ b/libgfortran/intrinsics/system.c @@ -1,5 +1,5 @@ /* Implementation of the SYSTEM intrinsic. - Copyright (C) 2004 Free Software Foundation, Inc. + Copyright (C) 2004, 2007 Free Software Foundation, Inc. Contributed by Tobias Schlüter. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,17 +28,13 @@ along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" - -#ifdef HAVE_STRING_H +#include "libgfortran.h" #include <string.h> -#endif + #ifdef HAVE_STDLIB_H #include <stdlib.h> #endif -#include "libgfortran.h" - extern void system_sub (const char *fcmd, GFC_INTEGER_4 * status, gfc_charlen_type cmd_len); iexport_proto(system_sub); |