diff options
| author | Alessandro Fanfarillo <fanfarillo.gcc@gmail.com> | 2016-07-05 09:33:06 -0600 |
|---|---|---|
| committer | Alessandro Fanfarillo <afanfa@gcc.gnu.org> | 2016-07-05 09:33:06 -0600 |
| commit | 20d0bfcefd6caf09c23113732edd98241a46af56 (patch) | |
| tree | ec27aaef1b5d3d90fcdc003d50d5ed2169894af8 /gcc/fortran/gfortran.h | |
| parent | 1174b21b388ba06e8cebfaa2d0a4cc7a026475ad (diff) | |
| download | gcc-20d0bfcefd6caf09c23113732edd98241a46af56.zip gcc-20d0bfcefd6caf09c23113732edd98241a46af56.tar.gz gcc-20d0bfcefd6caf09c23113732edd98241a46af56.tar.bz2 | |
Second review of STAT= patch + tests
From-SVN: r238007
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 0bb71cb..77831ab 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1814,6 +1814,7 @@ typedef struct gfc_array_ref int dimen; /* # of components in the reference */ int codimen; bool in_allocate; /* For coarray checks. */ + gfc_expr *stat; locus where; gfc_array_spec *as; @@ -3065,7 +3066,7 @@ bool gfc_is_coarray (gfc_expr *); int gfc_get_corank (gfc_expr *); bool gfc_has_ultimate_allocatable (gfc_expr *); bool gfc_has_ultimate_pointer (gfc_expr *); - +gfc_expr* gfc_find_stat_co (gfc_expr *); gfc_expr* gfc_build_intrinsic_call (gfc_namespace *, gfc_isym_id, const char*, locus, unsigned, ...); bool gfc_check_vardef_context (gfc_expr*, bool, bool, bool, const char*); |