diff options
author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-11-07 15:17:17 +0000 |
---|---|---|
committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-11-07 15:17:17 +0000 |
commit | 8f0bdb236d11ad2d2af45e4f6aa2a28bd6c5057f (patch) | |
tree | e381d60e6698b9bdf2995a250640098b1187c13a /gcc/fortran/error.c | |
parent | 58163c09dbc2b63b7fd86ce8075dad93fb120211 (diff) | |
download | gcc-8f0bdb236d11ad2d2af45e4f6aa2a28bd6c5057f.tar.gz |
2006-11-07 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29539
PR fortran/29634
* decl.c (variable_decl): Add test for presence of proc_name.
* error.c (gfc_error_flag_test): New function.
* gfortran.h : Prototype for gfc_error_flag_test.
2006-11-07 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29539
* gfortran.dg/gfortran.dg/blockdata_3.f90: New test.
PR fortran/29634
* gfortran.dg/gfortran.dg/derived_function_interface_1.f90: New
test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118553 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/error.c')
-rw-r--r-- | gcc/fortran/error.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c index dc4a6cf1fbc..ade361a69c5 100644 --- a/gcc/fortran/error.c +++ b/gcc/fortran/error.c @@ -699,6 +699,15 @@ gfc_clear_error (void) } +/* Tests the state of error_flag. */ + +int +gfc_error_flag_test (void) +{ + return error_buffer.flag; +} + + /* Check to see if any errors have been saved. If so, print the error. Returns the state of error_flag. */ |