diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-06-09 19:21:45 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-06-09 19:21:45 +0200 |
| commit | ebcbc56dd2cf126404f98e6e0c50be7ba0d9165f (patch) | |
| tree | e6caea571aa1a5c4c7543adb3a55816b6a8f06b5 | |
| parent | d81f5387a195d923614acd1c36b78de7d47d7411 (diff) | |
| download | gcc-ebcbc56dd2cf126404f98e6e0c50be7ba0d9165f.zip gcc-ebcbc56dd2cf126404f98e6e0c50be7ba0d9165f.tar.gz gcc-ebcbc56dd2cf126404f98e6e0c50be7ba0d9165f.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/intrinsic.texi | 12 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
3 files changed, 20 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2041fdc..5326973 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 0a8bba0..eb0956a 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 cbfff29..33d459a 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); |