fortran/

PR fortran/17776
* check.c (gfc_check_system_sub): New function.
* gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SYSTEM.
* intrinsic.c (add_functions): Add 'system'.
(add_subroutines): Add 'system'.
* intrinsic.h (gfc_check_etime_sub, gfc_check_getcwd_sub):
Move prototypes to other suborutines.
(gfc_check_system_sub, gfc_resolve_system, gfc_resolve_system_sub):
Add prototype.
(gfc_resolve_system_clock): Fix formatting of prototype.
* iresolve.c (gfc_resolve_system, gfc_resolve_system_sub): New
functions.
* trans-intrinsic.c (gfc_conv_intrinsic_function): Deal with
GFC_ISYM_SYSTEM.

libgfortran/
PR fortran/17776
* intrinsics/system.c: New file.
* Makefile.am: Add dependency for the new file.
* Makefile.in: Regenerate.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88532 138bc75d-0d04-0410-961f-82ee72b054a4

4 files changed, 84 insertions, 5 deletions

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 8b9d6a7ef41..a66c499cb84 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -12,6 +12,11 @@
 	* Makefile.in: Regenerate.
 	* intrinsics/mvbits.h: New file.
 
+	PR fortran/17776
+	* intrinsics/system.c: New file.
+	* Makefile.am: Add dependency for the new file.
+	* Makefile.in: Regenerate.
+
 2004-10-04  Paul Brook  <paul@codesourcery.com>
 	Bud Davis  <bdavis9659@comcast.net>
 
diff --git a/libgfortran/Makefile.am b/libgfortran/Makefile.am
index d34a3dd6e66..5be4b9f0fd8 100644
--- a/libgfortran/Makefile.am
+++ b/libgfortran/Makefile.am
@@ -57,6 +57,7 @@ intrinsics/pack_generic.c \
 intrinsics/size.c \
 intrinsics/spread_generic.c \
 intrinsics/string_intrinsics.c \
+intrinsics/system.c \
 intrinsics/rand.c \
 intrinsics/random.c \
 intrinsics/reshape_generic.c \
diff --git a/libgfortran/Makefile.in b/libgfortran/Makefile.in
index 219baa69b49..3fa14b49a05 100644
--- a/libgfortran/Makefile.in
+++ b/libgfortran/Makefile.in
@@ -122,11 +122,11 @@ am__objects_33 = associated.lo abort.lo args.lo bessel.lo \
 	c99_functions.lo cpu_time.lo cshift0.lo date_and_time.lo \
 	env.lo erf.lo eoshift0.lo eoshift2.lo etime.lo getcwd.lo \
 	getXid.lo ishftc.lo mvbits.lo pack_generic.lo size.lo \
-	spread_generic.lo string_intrinsics.lo rand.lo random.lo \
-	reshape_generic.lo reshape_packed.lo selected_int_kind.lo \
-	selected_real_kind.lo system_clock.lo transpose_generic.lo \
-	unpack_generic.lo in_pack_generic.lo in_unpack_generic.lo \
-	normalize.lo
+	spread_generic.lo string_intrinsics.lo system.lo rand.lo \
+	random.lo reshape_generic.lo reshape_packed.lo \
+	selected_int_kind.lo selected_real_kind.lo system_clock.lo \
+	transpose_generic.lo unpack_generic.lo in_pack_generic.lo \
+	in_unpack_generic.lo normalize.lo
 am__objects_34 =
 am__objects_35 = _abs_c4.lo _abs_c8.lo _abs_i4.lo _abs_i8.lo \
 	_abs_r4.lo _abs_r8.lo _exp_r4.lo _exp_r8.lo _exp_c4.lo \
@@ -330,6 +330,7 @@ intrinsics/pack_generic.c \
 intrinsics/size.c \
 intrinsics/spread_generic.c \
 intrinsics/string_intrinsics.c \
+intrinsics/system.c \
 intrinsics/rand.c \
 intrinsics/random.c \
 intrinsics/reshape_generic.c \
@@ -2161,6 +2162,15 @@ string_intrinsics.obj: intrinsics/string_intrinsics.c
 string_intrinsics.lo: intrinsics/string_intrinsics.c
 	$(LIBTOOL) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o string_intrinsics.lo `test -f 'intrinsics/string_intrinsics.c' || echo '$(srcdir)/'`intrinsics/string_intrinsics.c
 
+system.o: intrinsics/system.c
+	$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o system.o `test -f 'intrinsics/system.c' || echo '$(srcdir)/'`intrinsics/system.c
+
+system.obj: intrinsics/system.c
+	$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o system.obj `if test -f 'intrinsics/system.c'; then $(CYGPATH_W) 'intrinsics/system.c'; else $(CYGPATH_W) '$(srcdir)/intrinsics/system.c'; fi`
+
+system.lo: intrinsics/system.c
+	$(LIBTOOL) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o system.lo `test -f 'intrinsics/system.c' || echo '$(srcdir)/'`intrinsics/system.c
+
 rand.o: intrinsics/rand.c
 	$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o rand.o `test -f 'intrinsics/rand.c' || echo '$(srcdir)/'`intrinsics/rand.c
 
diff --git a/libgfortran/intrinsics/system.c b/libgfortran/intrinsics/system.c
new file mode 100644
index 00000000000..38ae0a9d2a9
--- /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;
+}