diff options
| author | domob <domob@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-08 11:39:20 +0000 |
|---|---|---|
| committer | domob <domob@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-08 11:39:20 +0000 |
| commit | 4b68c8f791fda8f94422fbeadf6b3490e90bcd23 (patch) | |
| tree | 97e379b084f6fe3298f9879b4b2d00a044c7693f /gcc/fortran/gfortran.h | |
| parent | 0340c2bd47cc2f632d0a7b700686ccf6bc02cbb9 (diff) | |
| download | ppe42-gcc-4b68c8f791fda8f94422fbeadf6b3490e90bcd23.tar.gz ppe42-gcc-4b68c8f791fda8f94422fbeadf6b3490e90bcd23.zip | |
2008-12-08 Daniel Kraft <d@domob.eu>
PR fortran/41177
* gfortran.dg/typebound_proc_4.f03: Remove check for wrong error.
* gfortran.dg/typebound_proc_13.f03: New test.
2008-12-08 Daniel Kraft <d@domob.eu>
PR fortran/41177
* gfortran.h (struct symbol_attribute): New flag `class_pointer'.
* symbol.c (gfc_build_class_symbol): Set the new flag.
* resolve.c (update_compcall_arglist): Remove wrong check for
non-scalar base-object.
(check_typebound_baseobject): Add the correct version here as well
as some 'not implemented' message check in the old case.
(resolve_typebound_procedure): Check that the passed-object dummy
argument is scalar, non-pointer and non-allocatable as it should be.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155086 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 3a13cfe4b26..340e0149902 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -654,6 +654,11 @@ typedef struct dummy:1, result:1, assign:1, threadprivate:1, not_always_present:1, implied_index:1, subref_array_pointer:1, proc_pointer:1; + /* For CLASS containers, the pointer attribute is sometimes set internally + even though it was not directly specified. In this case, keep the + "real" (original) value here. */ + unsigned class_pointer:1; + ENUM_BITFIELD (save_state) save:2; unsigned data:1, /* Symbol is named in a DATA statement. */ |
