1 files changed, 63 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/system.c b/libgfortran/intrinsics/system.c
new file mode 100644
index 0000000..38ae0a9
--- /dev/null
+++ b/libgfortran/intrinsics/system.c
@@ -0,0 +1,63 @@
+/* Implementation of the SYSTEM intrinsic.
+   Copyright (C) 2004 Free Software Foundation, Inc.
+   Contributed by Tobias Schlüter.
+
+This file is part of GCC.
+
+GCC 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.
+
+In addition to the permissions in the GNU General Public License, the
+Free Software Foundation gives you unlimited permission to link the
+compiled version of this file into combinations with other programs,
+and to distribute those combinations without any restriction coming
+from the use of this file.  (The General Public License restrictions
+do apply in other respects; for example, they cover modification of
+the file, and distribution when not linked into a combined
+executable.)
+
+GCC 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 GCC; see the file COPYING.  If not, write to the Free
+Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA.  */
+
+#include "config.h"
+#include "libgfortran.h"
+
+#ifdef HAVE_STRING_H
+#include <string.h>
+#endif
+#ifdef HAVE_STDLIB_H
+#include <stdlib.h>
+#endif
+
+void
+prefix(system_sub) (const char * fcmd, GFC_INTEGER_4 * status,
+		    gfc_charlen_type cmd_len)
+{
+  char cmd[cmd_len + 1];
+  int stat;
+
+  memcpy (cmd, fcmd, cmd_len);
+  cmd[cmd_len] = '\0';
+
+  stat = system (cmd);
+  if (status)
+    *status = stat;
+}
+
+GFC_INTEGER_4
+prefix(system) (char * fcmd, gfc_charlen_type cmd_len)
+{
+  GFC_INTEGER_4 stat;
+
+  prefix(system_sub) (fcmd, &stat, cmd_len);
+  return stat;
+}