summaryrefslogtreecommitdiff
path: root/libgfortran/runtime
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/runtime')
-rw-r--r--libgfortran/runtime/backtrace.c3
-rw-r--r--libgfortran/runtime/bounds.c2
-rw-r--r--libgfortran/runtime/compile_options.c19
-rw-r--r--libgfortran/runtime/convert_char.c5
-rw-r--r--libgfortran/runtime/environ.c4
-rw-r--r--libgfortran/runtime/error.c4
-rw-r--r--libgfortran/runtime/fpu.c2
-rw-r--r--libgfortran/runtime/in_pack_generic.c4
-rw-r--r--libgfortran/runtime/in_unpack_generic.c4
-rw-r--r--libgfortran/runtime/main.c21
-rw-r--r--libgfortran/runtime/memory.c3
-rw-r--r--libgfortran/runtime/minimal.c5
-rw-r--r--libgfortran/runtime/pause.c2
-rw-r--r--libgfortran/runtime/select.c2
-rw-r--r--libgfortran/runtime/select_inc.c2
-rw-r--r--libgfortran/runtime/stop.c22
-rw-r--r--libgfortran/runtime/string.c4
17 files changed, 24 insertions, 84 deletions
diff --git a/libgfortran/runtime/backtrace.c b/libgfortran/runtime/backtrace.c
index 5b8735d53f..77dd4d5f0a 100644
--- a/libgfortran/runtime/backtrace.c
+++ b/libgfortran/runtime/backtrace.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2006-2016 Free Software Foundation, Inc.
+/* Copyright (C) 2006-2017 Free Software Foundation, Inc.
Contributed by François-Xavier Coudert
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -27,7 +27,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#include <gthr.h>
#include <string.h>
-#include <stdlib.h>
#include <errno.h>
#ifdef HAVE_UNISTD_H
diff --git a/libgfortran/runtime/bounds.c b/libgfortran/runtime/bounds.c
index f130ba0320..ffa09628b6 100644
--- a/libgfortran/runtime/bounds.c
+++ b/libgfortran/runtime/bounds.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2009-2016 Free Software Foundation, Inc.
+/* Copyright (C) 2009-2017 Free Software Foundation, Inc.
Contributed by Thomas Koenig
This file is part of the GNU Fortran runtime library (libgfortran).
diff --git a/libgfortran/runtime/compile_options.c b/libgfortran/runtime/compile_options.c
index 71ec56a5a8..b572c88153 100644
--- a/libgfortran/runtime/compile_options.c
+++ b/libgfortran/runtime/compile_options.c
@@ -1,5 +1,5 @@
/* Handling of compile-time options that influence the library.
- Copyright (C) 2005-2016 Free Software Foundation, Inc.
+ Copyright (C) 2005-2017 Free Software Foundation, Inc.
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -151,21 +151,14 @@ set_options (int num, int options[])
compile_options.allow_std = options[1];
if (num >= 3)
compile_options.pedantic = options[2];
- /* options[3] is the removed -fdump-core option. Its place in the
- options array is retained due to ABI compatibility. Remove when
- bumping the library ABI. */
+ if (num >= 4)
+ compile_options.backtrace = options[3];
if (num >= 5)
- compile_options.backtrace = options[4];
+ compile_options.sign_zero = options[4];
if (num >= 6)
- compile_options.sign_zero = options[5];
+ compile_options.bounds_check = options[5];
if (num >= 7)
- compile_options.bounds_check = options[6];
- /* options[7] is the -frange-check option, which no longer affects
- the library behavior; range checking is now always done when
- parsing integers. Its place in the options array is retained due
- to ABI compatibility. Remove when bumping the library ABI. */
- if (num >= 9)
- compile_options.fpe_summary = options[8];
+ compile_options.fpe_summary = options[6];
#ifndef LIBGFOR_MINIMAL
/* If backtrace is required, we set signal handlers on the POSIX
diff --git a/libgfortran/runtime/convert_char.c b/libgfortran/runtime/convert_char.c
index fe68b59ff7..8e228f2b77 100644
--- a/libgfortran/runtime/convert_char.c
+++ b/libgfortran/runtime/convert_char.c
@@ -1,5 +1,5 @@
/* Runtime conversion of strings from one character kind to another.
- Copyright (C) 2008-2016 Free Software Foundation, Inc.
+ Copyright (C) 2008-2017 Free Software Foundation, Inc.
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -24,9 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#include "libgfortran.h"
-#include <stdlib.h>
-#include <string.h>
-
extern void convert_char1_to_char4 (gfc_char4_t **, gfc_charlen_type,
const unsigned char *);
diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c
index 07c6351a8d..bf02188ede 100644
--- a/libgfortran/runtime/environ.c
+++ b/libgfortran/runtime/environ.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2002-2016 Free Software Foundation, Inc.
+/* Copyright (C) 2002-2017 Free Software Foundation, Inc.
Contributed by Andy Vaught
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -25,7 +25,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#include "libgfortran.h"
#include <string.h>
-#include <stdlib.h>
+#include <strings.h>
#include <ctype.h>
#ifdef HAVE_UNISTD_H
diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c
index 6478ca732b..d2f879e84a 100644
--- a/libgfortran/runtime/error.c
+++ b/libgfortran/runtime/error.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2002-2016 Free Software Foundation, Inc.
+/* Copyright (C) 2002-2017 Free Software Foundation, Inc.
Contributed by Andy Vaught
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -33,8 +33,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#include <unistd.h>
#endif
-#include <stdlib.h>
-
#ifdef HAVE_SYS_TIME_H
#include <sys/time.h>
#endif
diff --git a/libgfortran/runtime/fpu.c b/libgfortran/runtime/fpu.c
index 54197d45b2..b00316f271 100644
--- a/libgfortran/runtime/fpu.c
+++ b/libgfortran/runtime/fpu.c
@@ -1,5 +1,5 @@
/* Set FPU mask.
- Copyright (C) 2005-2016 Free Software Foundation, Inc.
+ Copyright (C) 2005-2017 Free Software Foundation, Inc.
Contributed by Francois-Xavier Coudert <coudert@clipper.ens.fr>
This file is part of the GNU Fortran runtime library (libgfortran).
diff --git a/libgfortran/runtime/in_pack_generic.c b/libgfortran/runtime/in_pack_generic.c
index 3ab9a0c337..c4b78e9210 100644
--- a/libgfortran/runtime/in_pack_generic.c
+++ b/libgfortran/runtime/in_pack_generic.c
@@ -1,5 +1,5 @@
/* Generic helper function for repacking arrays.
- Copyright (C) 2003-2016 Free Software Foundation, Inc.
+ Copyright (C) 2003-2017 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -24,8 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
-#include <stdlib.h>
-#include <assert.h>
#include <string.h>
extern void *internal_pack (gfc_array_char *);
diff --git a/libgfortran/runtime/in_unpack_generic.c b/libgfortran/runtime/in_unpack_generic.c
index a29edf2df6..46b6dddb19 100644
--- a/libgfortran/runtime/in_unpack_generic.c
+++ b/libgfortran/runtime/in_unpack_generic.c
@@ -1,5 +1,5 @@
/* Generic helper function for repacking arrays.
- Copyright (C) 2003-2016 Free Software Foundation, Inc.
+ Copyright (C) 2003-2017 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -24,8 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
-#include <stdlib.h>
-#include <assert.h>
#include <string.h>
extern void internal_unpack (gfc_array_char *, const void *);
diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c
index 5065d9cf9b..8d466d1bba 100644
--- a/libgfortran/runtime/main.c
+++ b/libgfortran/runtime/main.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2002-2016 Free Software Foundation, Inc.
+/* Copyright (C) 2002-2017 Free Software Foundation, Inc.
Contributed by Andy Vaught and Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -23,16 +23,8 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
-#include <stdlib.h>
-#include <string.h>
-#include <limits.h>
-#include <errno.h>
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-
/* Stupid function to be sure the constructor is always linked in, even
in the case of static linking. See PR libfortran/22298 for details. */
void
@@ -71,15 +63,6 @@ static int argc_save;
static char **argv_save;
-void
-store_exe_path (const char * argv0 __attribute__ ((unused)))
-{
- /* This function is now useless, but is retained due to ABI compatibility.
- Remove when bumping the library ABI. */
- ;
-}
-
-
/* Set the saved values of the command line arguments. */
void
@@ -119,8 +102,6 @@ init (void)
set_fpu ();
init_compile_options ();
-
- random_seed_i4 (NULL, NULL, NULL);
}
diff --git a/libgfortran/runtime/memory.c b/libgfortran/runtime/memory.c
index 7028ace715..98c59bb066 100644
--- a/libgfortran/runtime/memory.c
+++ b/libgfortran/runtime/memory.c
@@ -1,5 +1,5 @@
/* Memory management routines.
- Copyright (C) 2002-2016 Free Software Foundation, Inc.
+ Copyright (C) 2002-2017 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -24,7 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
-#include <stdlib.h>
#include <errno.h>
#ifndef SIZE_MAX
diff --git a/libgfortran/runtime/minimal.c b/libgfortran/runtime/minimal.c
index 8a3a704aa8..2ef4f15925 100644
--- a/libgfortran/runtime/minimal.c
+++ b/libgfortran/runtime/minimal.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2002-2016 Free Software Foundation, Inc.
+/* Copyright (C) 2002-2017 Free Software Foundation, Inc.
Contributed by Andy Vaught and Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -23,10 +23,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
-#include <stdlib.h>
#include <string.h>
-#include <limits.h>
-#include <errno.h>
#ifdef HAVE_UNISTD_H
diff --git a/libgfortran/runtime/pause.c b/libgfortran/runtime/pause.c
index 9341331e2a..990d76f6c9 100644
--- a/libgfortran/runtime/pause.c
+++ b/libgfortran/runtime/pause.c
@@ -1,5 +1,5 @@
/* Implementation of the PAUSE statement.
- Copyright (C) 2002-2016 Free Software Foundation, Inc.
+ Copyright (C) 2002-2017 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
diff --git a/libgfortran/runtime/select.c b/libgfortran/runtime/select.c
index d8531c1bf6..6b421515a4 100644
--- a/libgfortran/runtime/select.c
+++ b/libgfortran/runtime/select.c
@@ -1,5 +1,5 @@
/* Implement the SELECT statement for character variables.
- Copyright (C) 2008-2016 Free Software Foundation, Inc.
+ Copyright (C) 2008-2017 Free Software Foundation, Inc.
This file is part of the GNU Fortran runtime library (libgfortran).
diff --git a/libgfortran/runtime/select_inc.c b/libgfortran/runtime/select_inc.c
index 9e8ecc5de2..0a0880bf57 100644
--- a/libgfortran/runtime/select_inc.c
+++ b/libgfortran/runtime/select_inc.c
@@ -1,5 +1,5 @@
/* Implement the SELECT statement for character variables.
- Copyright (C) 2008-2016 Free Software Foundation, Inc.
+ Copyright (C) 2008-2017 Free Software Foundation, Inc.
This file is part of the GNU Fortran runtime library (libgfortran).
diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c
index 26896e8511..81f00d77a6 100644
--- a/libgfortran/runtime/stop.c
+++ b/libgfortran/runtime/stop.c
@@ -1,5 +1,5 @@
/* Implementation of the STOP statement.
- Copyright (C) 2002-2016 Free Software Foundation, Inc.
+ Copyright (C) 2002-2017 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -24,8 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
-#include <stdlib.h>
-#include <string.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
@@ -90,24 +88,6 @@ void
stop_numeric (GFC_INTEGER_4 code)
{
report_exception ();
- if (code == -1)
- code = 0;
- else
- st_printf ("STOP %d\n", (int)code);
-
- exit (code);
-}
-
-
-/* A Fortran 2008 numeric STOP statement. */
-
-extern _Noreturn void stop_numeric_f08 (GFC_INTEGER_4);
-export_proto(stop_numeric_f08);
-
-void
-stop_numeric_f08 (GFC_INTEGER_4 code)
-{
- report_exception ();
st_printf ("STOP %d\n", (int)code);
exit (code);
}
diff --git a/libgfortran/runtime/string.c b/libgfortran/runtime/string.c
index bb486d9bb6..332b42e682 100644
--- a/libgfortran/runtime/string.c
+++ b/libgfortran/runtime/string.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2002-2016 Free Software Foundation, Inc.
+/* Copyright (C) 2002-2017 Free Software Foundation, Inc.
Contributed by Paul Brook
This file is part of the GNU Fortran runtime library (libgfortran).
@@ -24,7 +24,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#include "libgfortran.h"
#include <string.h>
-#include <stdlib.h>
+#include <strings.h>
/* Given a fortran string, return its length exclusive of the trailing