From: Tobias Burnus <burnus@net-b.de>
Date: Tue, 9 Jun 2009 17:21:45 +0000 (+0200)
Subject: trans-decl.c (gfc_generate_function_code): Use
X-Git-Tag: releases/gcc-4.5.0~5294
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ebcbc56dd2cf126404f98e6e0c50be7ba0d9165f;p=thirdparty%2Fgcc.git

trans-decl.c (gfc_generate_function_code): Use

2009-06-09  Tobias Burnus  <burnus@net-b.de>

        * trans-decl.c (gfc_generate_function_code): Use
        * gfc_option.rtcheck
        instead of flag_bounds_check.
        * intrinsic.texi (ISO_FORTRAN_ENV): Document INT{8,16,32,64} and
        REAL{32,64,128}.

From-SVN: r148317
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2041fdc26008..5326973b39c0 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+2009-06-09  Tobias Burnus  <burnus@net-b.de>
+
+	* trans-decl.c (gfc_generate_function_code): Use gfc_option.rtcheck
+	instead of flag_bounds_check.
+	* intrinsic.texi (ISO_FORTRAN_ENV): Document INT{8,16,32,64} and
+	REAL{32,64,128}.
+
 2009-06-08  Paul Thomas  <pault@gcc.gnu.org>
 
 	* trans-array.h : Replace prototypes for
diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index 0a8bba01cd9f..eb0956adb225 100644
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -11241,6 +11241,11 @@ Size in bits of the file-storage unit.
 Identifies the preconnected unit identified by the asterisk
 (@code{*}) in @code{READ} statement.
 
+@item @code{INT8}, @code{INT16}, @code{INT32}, @code{INT64}
+Kind type parameters to specify an INTEGER type with a storage
+size of 16, 32, and 64 bits. It is negative if a target platform
+does not support the particular kind.
+
 @item @code{IOSTAT_END}:
 The value assigned to the variable passed to the IOSTAT= specifier of
 an input/output statement if an end-of-file condition occurred.
@@ -11255,8 +11260,15 @@ The size in bits of the numeric storage unit.
 @item @code{OUTPUT_UNIT}:
 Identifies the preconnected unit identified by the asterisk
 (@code{*}) in @code{WRITE} statement.
+
+@item @code{REAL32}, @code{REAL64}, @code{REAL128}
+Kind type parameters to specify a REAL type with a storage
+size of 32, 64, and 128 bits. It is negative if a target platform
+does not support the particular kind.
 @end table
 
+
+
 @node ISO_C_BINDING
 @section @code{ISO_C_BINDING}
 @table @asis
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index cbfff293c842..33d459ade2ad 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -4185,7 +4185,7 @@ gfc_generate_function_code (gfc_namespace * ns)
   /* If bounds-checking is enabled, generate code to check passed in actual
      arguments against the expected dummy argument attributes (e.g. string
      lengths).  */
-  if (flag_bounds_check)
+  if (gfc_option.rtcheck & GFC_RTCHECK_BOUNDS)
     add_argument_checking (&body, sym);
 
   tmp = gfc_trans_code (ns->code);