diff options
| author | Tobias Burnus <burnus@net-b.de> | 2006-11-15 16:46:42 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2006-11-15 16:46:42 +0100 |
| commit | 8998be203171c0f305386fa12306aa282ddb5d06 (patch) | |
| tree | 72938501a423f4774c1cefa48f17941af90b4ee7 /gcc/fortran/gfortran.h | |
| parent | dd5f63f83e862faee09a5a02bd417438a81ef8a1 (diff) | |
| download | gcc-8998be203171c0f305386fa12306aa282ddb5d06.zip gcc-8998be203171c0f305386fa12306aa282ddb5d06.tar.gz gcc-8998be203171c0f305386fa12306aa282ddb5d06.tar.bz2 | |
re PR fortran/27546 (IMPORT is broken)
fortran/
2006-11-15 Tobias Burnus <burnus@net-b.de>
PR fortran/27546
* decl.c (gfc_match_import,variable_decl):
Add IMPORT support.
(gfc_match_kind_spec): Fix typo in gfc_error.
* gfortran.h (gfc_namespace, gfc_statement):
Add IMPORT support.
* parse.c (decode_statement,gfc_ascii_statement,
verify_st_order): Add IMPORT support.
* match.h: Add gfc_match_import.
* gfortran.texi: Add IMPORT to the supported
Fortran 2003 features.
testsuite/
2006-11-15 Tobias Burnus <burnus@net-b.de>
PR fortran/27546
* gfortran.dg/import.f90: New test.
* gfortran.dg/import2.f90: New test.
* gfortran.dg/import3.f90: New test.
From-SVN: r118857
Diffstat (limited to 'gcc/fortran/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index dbba22e..e5d32f6 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -221,7 +221,7 @@ typedef enum ST_END_INTERFACE, ST_END_MODULE, ST_END_PROGRAM, ST_END_SELECT, ST_END_SUBROUTINE, ST_END_WHERE, ST_END_TYPE, ST_ENTRY, ST_EQUIVALENCE, ST_EXIT, ST_FORALL, ST_FORALL_BLOCK, ST_FORMAT, ST_FUNCTION, ST_GOTO, - ST_IF_BLOCK, ST_IMPLICIT, ST_IMPLICIT_NONE, ST_INQUIRE, ST_INTERFACE, + ST_IF_BLOCK, ST_IMPLICIT, ST_IMPLICIT_NONE, ST_IMPORT, ST_INQUIRE, ST_INTERFACE, ST_PARAMETER, ST_MODULE, ST_MODULE_PROC, ST_NAMELIST, ST_NULLIFY, ST_OPEN, ST_PAUSE, ST_PRIVATE, ST_PROGRAM, ST_PUBLIC, ST_READ, ST_RETURN, ST_REWIND, ST_STOP, ST_SUBROUTINE, ST_TYPE, ST_USE, ST_WHERE_BLOCK, ST_WHERE, ST_WRITE, @@ -1007,6 +1007,9 @@ typedef struct gfc_namespace /* Set to 1 if namespace is a BLOCK DATA program unit. */ int is_block_data; + + /* Set to 1 if namespace is an interface body with "IMPORT" used. */ + int has_import_set; } gfc_namespace; |