diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-08-30 21:08:41 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-30 21:08:41 +0200 |
| commit | 0de4325e0bc2e0601e49ac8e85ca9a7134e50198 (patch) | |
| tree | f2545b671e60fba92c46ecb37aaa32965b1784a7 /gcc/fortran/trans.c | |
| parent | 442c8e31f0c70473592cbb205ca2d3ebc5cb69ae (diff) | |
| download | gcc-0de4325e0bc2e0601e49ac8e85ca9a7134e50198.zip gcc-0de4325e0bc2e0601e49ac8e85ca9a7134e50198.tar.gz gcc-0de4325e0bc2e0601e49ac8e85ca9a7134e50198.tar.bz2 | |
gfortran.h (gfc_namespace): Add new field is_block_data.
fortran/
* gfortran.h (gfc_namespace): Add new field is_block_data.
* parse.c (accept_statement): Remove special handling for BLOCK DATA.
(parse_block_data): Record BLOCK DATA name, set is_block_data field.
* trans.c (gfc_generate_code): Handle BLOCK DATA units.
* trans.h (gfc_generate_block_data): Add prototype.
* trans-decl.c (gfc_generate_block_data): New function.
testsuite/
* gfortran.dg/blockdata_1.f90: New test.
From-SVN: r86796
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 74bab19..727a7d7 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -647,6 +647,12 @@ gfc_generate_code (gfc_namespace * ns) gfc_symbol *main_program = NULL; symbol_attribute attr; + if (ns->is_block_data) + { + gfc_generate_block_data (ns); + return; + } + /* Main program subroutine. */ if (!ns->proc_name) { |