X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libgfortran%2Fintrinsics%2Fsystem.c;fp=libgfortran%2Fintrinsics%2Fsystem.c;h=5bc083a1ad093b26abb29ad29e56991fa541c92b;hp=831823ffc4cdfb99a2c98e6e2fc0c60789a380bf;hb=d32a87895c72d7db2ec8f8bcf0b2f15719c97802;hpb=11b905642e58fea2a51054c5227a421ae1e8e743 diff --git a/libgfortran/intrinsics/system.c b/libgfortran/intrinsics/system.c index 831823ffc4c..5bc083a1ad0 100644 --- a/libgfortran/intrinsics/system.c +++ b/libgfortran/intrinsics/system.c @@ -1,8 +1,8 @@ /* Implementation of the SYSTEM intrinsic. - Copyright (C) 2004, 2007, 2009 Free Software Foundation, Inc. + Copyright (C) 2004, 2007, 2009, 2011 Free Software Foundation, Inc. Contributed by Tobias Schlüter. -This file is part of the GNU Fortran 95 runtime library (libgfortran). +This file is part of the GNU Fortran runtime library (libgfortran). Libgfortran 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 @@ -25,10 +25,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" #include - -#ifdef HAVE_STDLIB_H #include -#endif extern void system_sub (const char *fcmd, GFC_INTEGER_4 * status, gfc_charlen_type cmd_len);