diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-06-04 12:26:57 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-06-04 12:26:57 +0200 |
| commit | ab21e2722dbe3f0677fcd2f8acc6ce078ae09a94 (patch) | |
| tree | 41d4831261eba1773eac96fee365cb09ad137ef2 /gcc/fortran/array.c | |
| parent | 9a28687dcfb8e850664915cf362102317498867b (diff) | |
| download | gcc-ab21e2722dbe3f0677fcd2f8acc6ce078ae09a94.zip gcc-ab21e2722dbe3f0677fcd2f8acc6ce078ae09a94.tar.gz gcc-ab21e2722dbe3f0677fcd2f8acc6ce078ae09a94.tar.bz2 | |
array.c (gfc_match_array_constructor): Disallow empty array constructor.
fortran/
2005-06-03 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
Erik Edelmann <erik.edelmann@iki.fi>
* array.c (gfc_match_array_constructor): Disallow empty array
constructor.
testsuite/
2005-06-04 Erik Edelmann <erik.edelmann@iki.fi>
* gfortran.dg/array_constructor_3.f90: New test.
From-SVN: r100579
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index f628440..3d90a55 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -887,7 +887,10 @@ gfc_match_array_constructor (gfc_expr ** result) head = tail = NULL; if (gfc_match (end_delim) == MATCH_YES) - goto empty; /* Special case */ + { + gfc_error ("Empty array constructor at %C is not allowed"); + goto cleanup; + } for (;;) { @@ -911,7 +914,6 @@ gfc_match_array_constructor (gfc_expr ** result) if (gfc_match (end_delim) == MATCH_NO) goto syntax; -empty: expr = gfc_get_expr (); expr->expr_type = EXPR_ARRAY; |