From 6ba3bda43d209337ebac65f2c012aa0ae53dc570 Mon Sep 17 00:00:00 2001 From: burnus Date: Tue, 9 Jun 2009 17:21:45 +0000 Subject: [PATCH] 2009-06-09 Tobias Burnus * 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 | 7 +++++++ gcc/fortran/intrinsic.texi | 12 ++++++++++++ gcc/fortran/trans-decl.c | 2 +- 3 files changed, 20 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2041fdc2600..5326973b39c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2009-06-09 Tobias Burnus + + * 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 * trans-array.h : Replace prototypes for diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 0a8bba01cd9..eb0956adb22 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 cbfff293c84..33d459ade2a 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); -- 2.11.0