Commit ab21e272 by Tobias Schlüter

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
parent 9a28687d
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.
2005-06-03 Jerry DeLisle <jvdelisle@verizon.net> 2005-06-03 Jerry DeLisle <jvdelisle@verizon.net>
* fortran/intrinsic.texi: Add documentation for * fortran/intrinsic.texi: Add documentation for
......
...@@ -887,7 +887,10 @@ gfc_match_array_constructor (gfc_expr ** result) ...@@ -887,7 +887,10 @@ gfc_match_array_constructor (gfc_expr ** result)
head = tail = NULL; head = tail = NULL;
if (gfc_match (end_delim) == MATCH_YES) if (gfc_match (end_delim) == MATCH_YES)
goto empty; /* Special case */ {
gfc_error ("Empty array constructor at %C is not allowed");
goto cleanup;
}
for (;;) for (;;)
{ {
...@@ -911,7 +914,6 @@ gfc_match_array_constructor (gfc_expr ** result) ...@@ -911,7 +914,6 @@ gfc_match_array_constructor (gfc_expr ** result)
if (gfc_match (end_delim) == MATCH_NO) if (gfc_match (end_delim) == MATCH_NO)
goto syntax; goto syntax;
empty:
expr = gfc_get_expr (); expr = gfc_get_expr ();
expr->expr_type = EXPR_ARRAY; expr->expr_type = EXPR_ARRAY;
......
2005-06-04 Erik Edelmann <erik.edelmann@iki.fi>
* gfortran.dg/array_constructor_3.f90: New test.
2005-06-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> 2005-06-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/ret_pointer_1.f90: Un-XFAIL. * gfortran.dg/ret_pointer_1.f90: Un-XFAIL.
......
! { dg-do compile }
! Check that empty array constructors are rejected
program hum
print *, (//) { dg-error "Empty array constructor" }
end program hum
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment