diff options
| author | Daniel Kraft <d@domob.eu> | 2008-09-02 10:13:21 +0200 |
|---|---|---|
| committer | Daniel Kraft <domob@gcc.gnu.org> | 2008-09-02 10:13:21 +0200 |
| commit | 52f4993488d2dd12d66dd99c2937e59319d0b1b6 (patch) | |
| tree | 632874704a2f440f9696fa8dc31ad80c794354ec /gcc/fortran/dump-parse-tree.c | |
| parent | 571191af2664d15b44e3a9795bc0cba9df44b8a6 (diff) | |
| download | gcc-52f4993488d2dd12d66dd99c2937e59319d0b1b6.zip gcc-52f4993488d2dd12d66dd99c2937e59319d0b1b6.tar.gz gcc-52f4993488d2dd12d66dd99c2937e59319d0b1b6.tar.bz2 | |
gfortran.h (struct gfc_namespace): New member `implicit_loc'.
2008-09-02 Daniel Kraft <d@domob.eu>
* gfortran.h (struct gfc_namespace): New member `implicit_loc'.
(gfc_add_abstract): New method.
* decl.c (gfc_get_type_attr_spec): Match ABSTRACT attribute.
(gfc_match_derived_decl): Copy abstract attribute in derived symbol.
* dump-parse-tree.c (show_attr): Show ABSTRACT attribute as `ABSTRACT'
only to allow for ABSTRACT types.
* parse.c (parse_interface): Use new gfc_add_abstract.
* primary.c (gfc_match_structure_constructor): Check that no ABSTRACT
type is constructed.
* resolve.c (resolve_typespec_used): New method.
(resolve_fl_derived): Check type in respect to ABSTRACT attribute and
check that no component is of an ABSTRACT type.
(resolve_symbol): Check that no symbol is of an ABSTRACT type.
(resolve_types): Check IMPLICIT declarations for ABSTRACT types.
* symbol.c (gfc_merge_new_implicit): Remember loci of IMPLICIT's.
(gfc_add_abstract): New method.
2008-09-02 Daniel Kraft <d@domob.eu>
* gfortran.dg/abstract_type_1.f90: New test.
* gfortran.dg/abstract_type_2.f03: New test.
* gfortran.dg/abstract_type_3.f03: New test.
* gfortran.dg/abstract_type_4.f03: New test.
From-SVN: r139885
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 05d32c2..32c97d0 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -619,7 +619,7 @@ show_attr (symbol_attribute *attr) fputs (" IN-COMMON", dumpfile); if (attr->abstract) - fputs (" ABSTRACT INTERFACE", dumpfile); + fputs (" ABSTRACT", dumpfile); if (attr->function) fputs (" FUNCTION", dumpfile); if (attr->subroutine) |