aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/libgfortran.h
diff options
context:
space:
mode:
authorTobias Burnus <burnus@net-b.de>2009-06-29 23:02:17 +0200
committerTobias Burnus <burnus@gcc.gnu.org>2009-06-29 23:02:17 +0200
commit20460eb94863954cf7ebdc7bf2193038ac0b781a (patch)
treef4b9667f6f491ec9edcb2471c4bf08b3e532f635 /gcc/fortran/libgfortran.h
parenta61a36ab30b7711b5d5cf002d52e6e9514499739 (diff)
downloadgcc-20460eb94863954cf7ebdc7bf2193038ac0b781a.zip
gcc-20460eb94863954cf7ebdc7bf2193038ac0b781a.tar.gz
gcc-20460eb94863954cf7ebdc7bf2193038ac0b781a.tar.bz2
re PR fortran/40580 (Add -fcheck=pointer with runtime check for using an unallocated argument)
2009-06-29 Tobias Burnus <burnus@net-b.de> PR fortran/40580 * trans-expr.c (gfc_conv_procedure_call): Add -fcheck=pointer * check. * libgfortran.h: Add GFC_RTCHECK_POINTER. * invoke.texi (-fcheck): Document new pointer option. * options.c (gfc_handle_runtime_check_option): Handle pointer * option. * gfortran.texi (C Binding): Improve wording. * iso-c-binding.def: Remove obsolete comment. 2009-06-29 Tobias Burnus <burnus@net-b.de> PR fortran/40580 * pointer_check_1.f90: New test. * pointer_check_2.f90: New test. * pointer_check_3.f90: New test. * pointer_check_4.f90: New test. * pointer_check_5.f90: New test. From-SVN: r149063
Diffstat (limited to 'gcc/fortran/libgfortran.h')
-rw-r--r--gcc/fortran/libgfortran.h4
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/libgfortran.h b/gcc/fortran/libgfortran.h
index 839279e..a18fdce 100644
--- a/gcc/fortran/libgfortran.h
+++ b/gcc/fortran/libgfortran.h
@@ -47,8 +47,10 @@ along with GCC; see the file COPYING3. If not see
#define GFC_RTCHECK_ARRAY_TEMPS (1<<1)
#define GFC_RTCHECK_RECURSION (1<<2)
#define GFC_RTCHECK_DO (1<<3)
+#define GFC_RTCHECK_POINTER (1<<4)
#define GFC_RTCHECK_ALL (GFC_RTCHECK_BOUNDS | GFC_RTCHECK_ARRAY_TEMPS \
- | GFC_RTCHECK_RECURSION | GFC_RTCHECK_DO)
+ | GFC_RTCHECK_RECURSION | GFC_RTCHECK_DO \
+ | GFC_RTCHECK_POINTER)
/* Possible values for the CONVERT I/O specifier. */