diff options
Diffstat (limited to 'libgfortran/intrinsics')
47 files changed, 79 insertions, 160 deletions
diff --git a/libgfortran/intrinsics/abort.c b/libgfortran/intrinsics/abort.c index 6bf313ad364..4e13cb56ad9 100644 --- a/libgfortran/intrinsics/abort.c +++ b/libgfortran/intrinsics/abort.c @@ -1,5 +1,5 @@ /* Implementation of the ABORT intrinsic. - Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. + Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -27,8 +27,8 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include <stdlib.h> #include "libgfortran.h" +#include <stdlib.h> void PREFIX(abort) (void); export_proto_np(PREFIX(abort)); diff --git a/libgfortran/intrinsics/access.c b/libgfortran/intrinsics/access.c index 08008bfb728..221c5d5e2c2 100644 --- a/libgfortran/intrinsics/access.c +++ b/libgfortran/intrinsics/access.c @@ -1,5 +1,5 @@ /* Implementation of the ACCESS intrinsic. - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,14 +28,11 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> - -#ifdef HAVE_STRING_H #include <string.h> -#endif + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif diff --git a/libgfortran/intrinsics/args.c b/libgfortran/intrinsics/args.c index 26a6b20f169..c3435957d26 100644 --- a/libgfortran/intrinsics/args.c +++ b/libgfortran/intrinsics/args.c @@ -1,6 +1,6 @@ /* Implementation of the GETARG and IARGC g77, and corresponding F2003, intrinsics. - Copyright (C) 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc. Contributed by Bud Davis and Janne Blomqvist. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -29,9 +29,8 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" -#include <string.h> #include "libgfortran.h" +#include <string.h> /* Get a commandline argument. */ diff --git a/libgfortran/intrinsics/chdir.c b/libgfortran/intrinsics/chdir.c index e365a6afed8..c5eb13dd9be 100644 --- a/libgfortran/intrinsics/chdir.c +++ b/libgfortran/intrinsics/chdir.c @@ -1,5 +1,5 @@ /* Implementation of the CHDIR intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,14 +28,11 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> - -#ifdef HAVE_STRING_H #include <string.h> -#endif + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif diff --git a/libgfortran/intrinsics/chmod.c b/libgfortran/intrinsics/chmod.c index fd0542fa1bb..0f44efe6644 100644 --- a/libgfortran/intrinsics/chmod.c +++ b/libgfortran/intrinsics/chmod.c @@ -1,5 +1,5 @@ /* Implementation of the CHMOD intrinsic. - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,14 +28,11 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> - -#ifdef HAVE_STRING_H #include <string.h> -#endif + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif diff --git a/libgfortran/intrinsics/clock.c b/libgfortran/intrinsics/clock.c index 73e50634e36..ba5514358c8 100644 --- a/libgfortran/intrinsics/clock.c +++ b/libgfortran/intrinsics/clock.c @@ -1,5 +1,5 @@ /* Implementation of the MCLOCK and MCLOCK8 g77 intrinsics. - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef TIME_WITH_SYS_TIME diff --git a/libgfortran/intrinsics/cpu_time.c b/libgfortran/intrinsics/cpu_time.c index c94cb4c5ce7..add3507df68 100644 --- a/libgfortran/intrinsics/cpu_time.c +++ b/libgfortran/intrinsics/cpu_time.c @@ -1,5 +1,5 @@ /* Implementation of the CPU_TIME intrinsic. - Copyright (C) 2003 Free Software Foundation, Inc. + Copyright (C) 2003, 2007 Free Software Foundation, Inc. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -27,7 +27,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef HAVE_UNISTD_H diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index 2ecf30e5f76..75762a8158f 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -1,5 +1,5 @@ /* Generic implementation of the CSHIFT intrinsic - Copyright 2003, 2005, 2006 Free Software Foundation, Inc. + Copyright 2003, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Feng Wang <wf_cs@yahoo.com> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <assert.h> #include <string.h> -#include "libgfortran.h" /* "Templatized" helper function for the inner shift loop. */ diff --git a/libgfortran/intrinsics/ctime.c b/libgfortran/intrinsics/ctime.c index 1499fd970e4..ab9cfffe3f3 100644 --- a/libgfortran/intrinsics/ctime.c +++ b/libgfortran/intrinsics/ctime.c @@ -1,5 +1,5 @@ /* Implementation of the CTIME and FDATE g77 intrinsics. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef TIME_WITH_SYS_TIME diff --git a/libgfortran/intrinsics/date_and_time.c b/libgfortran/intrinsics/date_and_time.c index 2346b928d23..4e52b2ff272 100644 --- a/libgfortran/intrinsics/date_and_time.c +++ b/libgfortran/intrinsics/date_and_time.c @@ -1,5 +1,5 @@ /* Implementation of the DATE_AND_TIME intrinsic. - Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. + Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Steven Bosscher. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,12 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <string.h> #include <assert.h> -#include <stdio.h> #include <stdlib.h> -#include "libgfortran.h" #undef HAVE_NO_DATE_TIME #if TIME_WITH_SYS_TIME diff --git a/libgfortran/intrinsics/env.c b/libgfortran/intrinsics/env.c index c4cc4f41ace..4d6e037b5e5 100644 --- a/libgfortran/intrinsics/env.c +++ b/libgfortran/intrinsics/env.c @@ -1,6 +1,6 @@ /* Implementation of the GETENV g77, and GET_ENVIRONMENT_VARIABLE F2003, intrinsics. - Copyright (C) 2004 Free Software Foundation, Inc. + Copyright (C) 2004, 2007 Free Software Foundation, Inc. Contributed by Janne Blomqvist. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -29,10 +29,9 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <string.h> -#include "libgfortran.h" /* GETENV (NAME, VALUE), g77 intrinsic for retrieving the value of diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c index 74f13dfa313..594944d4508 100644 --- a/libgfortran/intrinsics/eoshift0.c +++ b/libgfortran/intrinsics/eoshift0.c @@ -1,5 +1,5 @@ /* Generic implementation of the EOSHIFT intrinsic - Copyright 2002, 2005 Free Software Foundation, Inc. + Copyright 2002, 2005, 2007 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <assert.h> #include <string.h> -#include "libgfortran.h" /* TODO: make this work for large shifts when sizeof(int) < sizeof (index_type). */ diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c index c41301ec26e..bfbcc3e6a80 100644 --- a/libgfortran/intrinsics/eoshift2.c +++ b/libgfortran/intrinsics/eoshift2.c @@ -1,5 +1,5 @@ /* Generic implementation of the EOSHIFT intrinsic - Copyright 2002, 2005 Free Software Foundation, Inc. + Copyright 2002, 2005, 2007 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <assert.h> #include <string.h> -#include "libgfortran.h" /* TODO: make this work for large shifts when sizeof(int) < sizeof (index_type). */ diff --git a/libgfortran/intrinsics/etime.c b/libgfortran/intrinsics/etime.c index 8929158b809..c4d25c4160a 100644 --- a/libgfortran/intrinsics/etime.c +++ b/libgfortran/intrinsics/etime.c @@ -1,5 +1,5 @@ /* Implementation of the ETIME intrinsic. - Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,8 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" -#include <stdio.h> - #if defined (HAVE_SYS_TIME_H) && defined (HAVE_SYS_RESOURCE_H) #include <sys/time.h> #include <sys/resource.h> diff --git a/libgfortran/intrinsics/exit.c b/libgfortran/intrinsics/exit.c index 772772191a4..c5123078792 100644 --- a/libgfortran/intrinsics/exit.c +++ b/libgfortran/intrinsics/exit.c @@ -1,5 +1,5 @@ /* Implementation of the EXIT intrinsic. - Copyright (C) 2004 Free Software Foundation, Inc. + Copyright (C) 2004, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -29,7 +29,6 @@ write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef HAVE_STDLIB_H diff --git a/libgfortran/intrinsics/fnum.c b/libgfortran/intrinsics/fnum.c index 02a6bb5e169..1849e1d8394 100644 --- a/libgfortran/intrinsics/fnum.c +++ b/libgfortran/intrinsics/fnum.c @@ -1,5 +1,5 @@ /* Implementation of the FNUM intrinsics. - Copyright (C) 2004 Free Software Foundation, Inc. + Copyright (C) 2004, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" /* FUNCTION FNUM(UNIT) diff --git a/libgfortran/intrinsics/gerror.c b/libgfortran/intrinsics/gerror.c index 0ec354a0bac..68ad7fe7a42 100644 --- a/libgfortran/intrinsics/gerror.c +++ b/libgfortran/intrinsics/gerror.c @@ -1,5 +1,5 @@ /* Implementation of the GERROR g77 intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,14 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> - -#ifdef HAVE_STRING_H #include <string.h> -#endif /* GERROR (MESSAGE), g77 intrinsic for retrieving the system error diff --git a/libgfortran/intrinsics/getXid.c b/libgfortran/intrinsics/getXid.c index 9bcc9e47ecf..cac8711aca1 100644 --- a/libgfortran/intrinsics/getXid.c +++ b/libgfortran/intrinsics/getXid.c @@ -1,5 +1,5 @@ /* Wrapper for the unix get{g,p,u}id functions. - Copyright (C) 2004 Free Software Foundation, Inc. + Copyright (C) 2004, 2007 Free Software Foundation, Inc. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -27,14 +27,12 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #if HAVE_UNISTD_H #include <unistd.h> #endif -#include "libgfortran.h" - #ifdef __MINGW32__ #define HAVE_GETPID 1 #include <process.h> diff --git a/libgfortran/intrinsics/getcwd.c b/libgfortran/intrinsics/getcwd.c index d3bd8811229..e0826808ec2 100644 --- a/libgfortran/intrinsics/getcwd.c +++ b/libgfortran/intrinsics/getcwd.c @@ -1,5 +1,5 @@ /* Implementation of the GETCWD intrinsic. - Copyright (C) 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,17 +28,14 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" +#include <string.h> +#include <errno.h> + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif -#ifdef HAVE_STRING_H -#include <string.h> -#endif - -#include <errno.h> extern void getcwd_i4_sub (char *, GFC_INTEGER_4 *, gfc_charlen_type); iexport_proto(getcwd_i4_sub); diff --git a/libgfortran/intrinsics/getlog.c b/libgfortran/intrinsics/getlog.c index 417b0f28f99..f25f49f3670 100644 --- a/libgfortran/intrinsics/getlog.c +++ b/libgfortran/intrinsics/getlog.c @@ -1,5 +1,5 @@ /* Implementation of the GETLOG g77 intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,18 +28,13 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" -#ifdef HAVE_STRING_H #include <string.h> -#endif + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif -#ifdef HAVE_SYS_TYPES_H -#include <sys/types.h> -#endif #ifdef HAVE_PWD_H #include <pwd.h> #endif diff --git a/libgfortran/intrinsics/hostnm.c b/libgfortran/intrinsics/hostnm.c index 0df39ea46f3..296f7ac6b65 100644 --- a/libgfortran/intrinsics/hostnm.c +++ b/libgfortran/intrinsics/hostnm.c @@ -1,5 +1,5 @@ /* Implementation of the HOSTNM intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> diff --git a/libgfortran/intrinsics/ierrno.c b/libgfortran/intrinsics/ierrno.c index 4b0c6da8edc..6171d526da9 100644 --- a/libgfortran/intrinsics/ierrno.c +++ b/libgfortran/intrinsics/ierrno.c @@ -1,5 +1,5 @@ /* Implementation of the IERRNO intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> diff --git a/libgfortran/intrinsics/iso_c_binding.c b/libgfortran/intrinsics/iso_c_binding.c index 29fb5181706..5d566bcf11b 100644 --- a/libgfortran/intrinsics/iso_c_binding.c +++ b/libgfortran/intrinsics/iso_c_binding.c @@ -32,11 +32,11 @@ Boston, MA 02110-1301, USA. */ /* Implement the functions and subroutines provided by the intrinsic iso_c_binding module. */ -#include <stdlib.h> - #include "libgfortran.h" #include "iso_c_binding.h" +#include <stdlib.h> + /* Set the fields of a Fortran pointer descriptor to point to the given C address. It uses c_f_pointer_u0 for the common diff --git a/libgfortran/intrinsics/kill.c b/libgfortran/intrinsics/kill.c index 718713133cb..c8df6256dae 100644 --- a/libgfortran/intrinsics/kill.c +++ b/libgfortran/intrinsics/kill.c @@ -1,5 +1,5 @@ /* Implementation of the KILL g77 intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,15 +28,13 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" +#include <errno.h> #ifdef HAVE_SIGNAL_H #include <signal.h> #endif -#include <errno.h> - /* SUBROUTINE KILL(PID, SIGNAL, STATUS) INTEGER, INTENT(IN) :: PID, SIGNAL INTEGER(KIND=1), INTENT(OUT), OPTIONAL :: STATUS diff --git a/libgfortran/intrinsics/link.c b/libgfortran/intrinsics/link.c index 4627d47d02d..d180cf4d96a 100644 --- a/libgfortran/intrinsics/link.c +++ b/libgfortran/intrinsics/link.c @@ -1,5 +1,5 @@ /* Implementation of the LINK intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,14 +28,11 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> - -#ifdef HAVE_STRING_H #include <string.h> -#endif + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif diff --git a/libgfortran/intrinsics/malloc.c b/libgfortran/intrinsics/malloc.c index 2f53d992002..b040c851c39 100644 --- a/libgfortran/intrinsics/malloc.c +++ b/libgfortran/intrinsics/malloc.c @@ -1,5 +1,5 @@ /* Implementation of the MALLOC and FREE intrinsics - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef HAVE_STDLIB_H diff --git a/libgfortran/intrinsics/move_alloc.c b/libgfortran/intrinsics/move_alloc.c index 24baf3971cd..82281976ff0 100644 --- a/libgfortran/intrinsics/move_alloc.c +++ b/libgfortran/intrinsics/move_alloc.c @@ -1,5 +1,5 @@ /* Generic implementation of the MOVE_ALLOC intrinsic - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2007 Free Software Foundation, Inc. Contributed by Paul Thomas This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef HAVE_STDLIB_H diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 30255f04686..8fd52319643 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -1,5 +1,5 @@ /* Generic implementation of the PACK intrinsic - Copyright (C) 2002, 2004, 2005, 2006 Free Software Foundation, Inc. + Copyright (C) 2002, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <assert.h> #include <string.h> -#include "libgfortran.h" /* PACK is specified as follows: diff --git a/libgfortran/intrinsics/perror.c b/libgfortran/intrinsics/perror.c index 823ee485ca9..0365764eef2 100644 --- a/libgfortran/intrinsics/perror.c +++ b/libgfortran/intrinsics/perror.c @@ -1,5 +1,5 @@ /* Implementation of the PERROR intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,15 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" -#include <stdio.h> #include <errno.h> - -#ifdef HAVE_STRING_H #include <string.h> -#endif /* SUBROUTINE PERROR(STRING) CHARACTER(len=*), INTENT(IN) :: STRING */ diff --git a/libgfortran/intrinsics/rand.c b/libgfortran/intrinsics/rand.c index e6a11b2e4d7..06c1cc8cedb 100644 --- a/libgfortran/intrinsics/rand.c +++ b/libgfortran/intrinsics/rand.c @@ -1,5 +1,5 @@ /* Implementation of the IRAND, RAND, and SRAND intrinsics. - Copyright (C) 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -35,7 +35,6 @@ Boston, MA 02110-1301, USA. */ 31, 1192-1201 (1988). It is also provided solely for compatibility with G77. */ -#include "config.h" #include "libgfortran.h" #include <gthr.h> diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c index 00029c5da61..bc41eca9ab5 100644 --- a/libgfortran/intrinsics/random.c +++ b/libgfortran/intrinsics/random.c @@ -29,7 +29,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <gthr.h> #include <string.h> diff --git a/libgfortran/intrinsics/rename.c b/libgfortran/intrinsics/rename.c index c1be29bd79b..3db33a03350 100644 --- a/libgfortran/intrinsics/rename.c +++ b/libgfortran/intrinsics/rename.c @@ -1,5 +1,5 @@ /* Implementation of the RENAME intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,9 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> -#include <stdio.h> #include <string.h> /* SUBROUTINE RENAME(PATH1, PATH2, STATUS) diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c index 9a20c197201..333f99d2610 100644 --- a/libgfortran/intrinsics/reshape_generic.c +++ b/libgfortran/intrinsics/reshape_generic.c @@ -1,5 +1,5 @@ /* Generic implementation of the RESHAPE intrinsic - Copyright 2002, 2006 Free Software Foundation, Inc. + Copyright 2002, 2006, 2007 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <string.h> #include <assert.h> -#include "libgfortran.h" typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) parray; diff --git a/libgfortran/intrinsics/reshape_packed.c b/libgfortran/intrinsics/reshape_packed.c index a6a193774b2..cf61f31d4d1 100644 --- a/libgfortran/intrinsics/reshape_packed.c +++ b/libgfortran/intrinsics/reshape_packed.c @@ -1,5 +1,5 @@ /* Implementation of the RESHAPE intrinsic for packed arrays - Copyright 2002 Free Software Foundation, Inc. + Copyright 2002, 2007 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <string.h> diff --git a/libgfortran/intrinsics/signal.c b/libgfortran/intrinsics/signal.c index c69efac1f18..2e28b543763 100644 --- a/libgfortran/intrinsics/signal.c +++ b/libgfortran/intrinsics/signal.c @@ -1,4 +1,5 @@ /* Implementation of the SIGNAL and ALARM g77 intrinsics + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -27,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef HAVE_UNISTD_H diff --git a/libgfortran/intrinsics/sleep.c b/libgfortran/intrinsics/sleep.c index a344085c8c6..568a8421aa6 100644 --- a/libgfortran/intrinsics/sleep.c +++ b/libgfortran/intrinsics/sleep.c @@ -1,5 +1,5 @@ /* Implementation of the SLEEP intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c index 9ea6b12ef16..4f34e84cd1c 100644 --- a/libgfortran/intrinsics/spread_generic.c +++ b/libgfortran/intrinsics/spread_generic.c @@ -1,5 +1,5 @@ /* Generic implementation of the SPREAD intrinsic - Copyright 2002, 2005, 2006 Free Software Foundation, Inc. + Copyright 2002, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <assert.h> #include <string.h> -#include "libgfortran.h" static void spread_internal (gfc_array_char *ret, const gfc_array_char *source, diff --git a/libgfortran/intrinsics/stat.c b/libgfortran/intrinsics/stat.c index 9bca80fad15..ccdba1ba2eb 100644 --- a/libgfortran/intrinsics/stat.c +++ b/libgfortran/intrinsics/stat.c @@ -1,5 +1,5 @@ /* Implementation of the STAT and FSTAT intrinsics. - Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,9 +28,11 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" +#include <string.h> +#include <errno.h> + #ifdef HAVE_SYS_STAT_H #include <sys/stat.h> #endif @@ -39,12 +41,6 @@ Boston, MA 02110-1301, USA. */ #include <stdlib.h> #endif -#ifdef HAVE_STRING_H -#include <string.h> -#endif - -#include <errno.h> - #ifdef HAVE_STAT diff --git a/libgfortran/intrinsics/string_intrinsics.c b/libgfortran/intrinsics/string_intrinsics.c index c663daa6d86..1a769451b26 100644 --- a/libgfortran/intrinsics/string_intrinsics.c +++ b/libgfortran/intrinsics/string_intrinsics.c @@ -36,11 +36,10 @@ Boston, MA 02110-1301, USA. */ compiler translates the actual intrinsics calls to calls to functions in this file. */ +#include "libgfortran.h" + #include <stdlib.h> #include <string.h> -#include <stdarg.h> - -#include "libgfortran.h" /* String functions. */ diff --git a/libgfortran/intrinsics/symlnk.c b/libgfortran/intrinsics/symlnk.c index 76835884a17..b6f887a61d1 100644 --- a/libgfortran/intrinsics/symlnk.c +++ b/libgfortran/intrinsics/symlnk.c @@ -1,5 +1,5 @@ /* Implementation of the SYMLNK intrinsic. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,14 +28,11 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <errno.h> - -#ifdef HAVE_STRING_H #include <string.h> -#endif + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif 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); diff --git a/libgfortran/intrinsics/system_clock.c b/libgfortran/intrinsics/system_clock.c index 274259cc589..db87bd4d95b 100644 --- a/libgfortran/intrinsics/system_clock.c +++ b/libgfortran/intrinsics/system_clock.c @@ -1,5 +1,5 @@ /* Implementation of the SYSTEM_CLOCK intrinsic. - Copyright (C) 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -27,7 +27,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #include <limits.h> diff --git a/libgfortran/intrinsics/time.c b/libgfortran/intrinsics/time.c index 6c91e45b3f5..ca5798fd057 100644 --- a/libgfortran/intrinsics/time.c +++ b/libgfortran/intrinsics/time.c @@ -1,5 +1,5 @@ /* Implementation of the TIME and TIME8 g77 intrinsics. - Copyright (C) 2005 Free Software Foundation, Inc. + Copyright (C) 2005, 2007 Free Software Foundation, Inc. Contributed by François-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,7 +28,6 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef TIME_WITH_SYS_TIME diff --git a/libgfortran/intrinsics/transpose_generic.c b/libgfortran/intrinsics/transpose_generic.c index 1daae8bb5b7..97b97133698 100644 --- a/libgfortran/intrinsics/transpose_generic.c +++ b/libgfortran/intrinsics/transpose_generic.c @@ -1,5 +1,5 @@ /* Implementation of the TRANSPOSE intrinsic - Copyright 2003, 2006 Free Software Foundation, Inc. + Copyright 2003, 2006, 2007 Free Software Foundation, Inc. Contributed by Tobias Schlüter This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <string.h> #include <assert.h> -#include "libgfortran.h" extern void transpose (gfc_array_char *, gfc_array_char *); export_proto(transpose); diff --git a/libgfortran/intrinsics/umask.c b/libgfortran/intrinsics/umask.c index 721272dc485..c348c7227ae 100644 --- a/libgfortran/intrinsics/umask.c +++ b/libgfortran/intrinsics/umask.c @@ -1,5 +1,5 @@ /* Implementation of the UMASK intrinsic. - Copyright (C) 2004 Free Software Foundation, Inc. + Copyright (C) 2004, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -29,7 +29,6 @@ write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" #ifdef HAVE_STDLIB_H diff --git a/libgfortran/intrinsics/unlink.c b/libgfortran/intrinsics/unlink.c index 2f7a5ca8b49..cf95529acee 100644 --- a/libgfortran/intrinsics/unlink.c +++ b/libgfortran/intrinsics/unlink.c @@ -1,5 +1,5 @@ /* Implementation of the UNLINK intrinsic. - Copyright (C) 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,17 +28,14 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" #include "libgfortran.h" +#include <string.h> +#include <errno.h> + #ifdef HAVE_UNISTD_H #include <unistd.h> #endif -#ifdef HAVE_STRING_H -#include <string.h> -#endif - -#include <errno.h> /* SUBROUTINE UNLINK(NAME, STATUS) CHARACTER(LEN= ), INTENT(IN) :: NAME diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c index 86c70fb7e45..fcf464b09ea 100644 --- a/libgfortran/intrinsics/unpack_generic.c +++ b/libgfortran/intrinsics/unpack_generic.c @@ -1,5 +1,5 @@ /* Generic implementation of the UNPACK intrinsic - Copyright 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright 2002, 2003, 2004, 2005, 2007 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -28,11 +28,10 @@ License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include "config.h" +#include "libgfortran.h" #include <stdlib.h> #include <assert.h> #include <string.h> -#include "libgfortran.h" static void unpack_internal (gfc_array_char *ret, const gfc_array_char *vector, |