OSDN Git Service

2009-06-09 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 9 Jun 2009 17:21:45 +0000 (17:21 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 9 Jun 2009 17:21:45 +0000 (17:21 +0000)
        * 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}.

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

gcc/fortran/ChangeLog
gcc/fortran/intrinsic.texi
gcc/fortran/trans-decl.c

index 2041fdc..5326973 100644 (file)
@@ -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
index 0a8bba0..eb0956a 100644 (file)
@@ -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
index cbfff29..33d459a 100644 (file)
@@ -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);