diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-08-26 19:59:34 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-08-26 19:59:34 +0200 |
| commit | c5b9117ecabde0a935e826afff0728b04c1d47c9 (patch) | |
| tree | daaf47b4b03c19298aace93c71b5b6fdd54aed77 /gcc/fortran/parse.c | |
| parent | b0d6c7d844902d77bb74033bcaccd18155223d19 (diff) | |
| download | gcc-c5b9117ecabde0a935e826afff0728b04c1d47c9.zip gcc-c5b9117ecabde0a935e826afff0728b04c1d47c9.tar.gz gcc-c5b9117ecabde0a935e826afff0728b04c1d47c9.tar.bz2 | |
re PR fortran/33188 (Fortran 2003: Type declarations without componends)
2007-08-26 Tobias Burnus <burnus@net-b.de>
PR fortran/33188
* parse.c (parse_derived): Support empty derived type
definitions for Fortran 2003.
2007-08-26 Tobias Burnus <burnus@net-b.de>
PR fortran/33188
* gfortran.dg/used_types_18.f90: New.
From-SVN: r127808
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 835b05a..df7f68f 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -1544,11 +1544,11 @@ parse_derived (void) case ST_END_TYPE: compiling_type = 0; - if (!seen_component) - { - gfc_error ("Derived type definition at %C has no components"); - error_flag = 1; - } + if (!seen_component + && (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: Derived type " + "definition at %C without components") + == FAILURE)) + error_flag = 1; accept_statement (ST_END_TYPE); break; |