FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/25101 ([4.1] Zero stride allowed in FORALL:s)

Browse source 
2006-01-03  Steven G. Kargl  <kargls@comcast.net>

	PR fortran/25101
	* resolve.c (resolve_forall_iterators):  Check for scalar variables;
	Check stride is nonzero.

	* gfortran.dg/forall_2.f90:  New test.

From-SVN: r109288
This commit is contained in:
Steven G. Kargl 2006-01-03 22:01:10 +00:00 • committed by Steven G. Kargl
parent 6b2acaad34
commit 1c54741a0e
4 changed files with 40 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2006-01-03 Steven G. Kargl <kargls@comcast.net>
PR fortran/25101
* resolve.c (resolve_forall_iterators): Check for scalar variables;
Check stride is nonzero.
2006-01-02 Steven G. Kargl <kargls@comcast.net>
PR fortran/24640

31
gcc/fortran/resolve.c
View file

@ -2509,7 +2509,9 @@ gfc_resolve_iterator (gfc_iterator * iter, bool real_ok)
}
/* Resolve a list of FORALL iterators. */
/* Resolve a list of FORALL iterators. The FORALL index-name is constrained
to be a scalar INTEGER variable. The subscripts and stride are scalar
INTEGERs, and if stride is a constant it must be nonzero. */
static void
resolve_forall_iterators (gfc_forall_iterator * iter)
@ -2518,28 +2520,35 @@ resolve_forall_iterators (gfc_forall_iterator * iter)
while (iter)
{
if (gfc_resolve_expr (iter->var) == SUCCESS
&& iter->var->ts.type != BT_INTEGER)
gfc_error ("FORALL Iteration variable at %L must be INTEGER",
&& (iter->var->ts.type != BT_INTEGER || iter->var->rank != 0))
gfc_error ("FORALL index-name at %L must be a scalar INTEGER",
&iter->var->where);
if (gfc_resolve_expr (iter->start) == SUCCESS
&& iter->start->ts.type != BT_INTEGER)
gfc_error ("FORALL start expression at %L must be INTEGER",
&& (iter->start->ts.type != BT_INTEGER || iter->start->rank != 0))
gfc_error ("FORALL start expression at %L must be a scalar INTEGER",
&iter->start->where);
if (iter->var->ts.kind != iter->start->ts.kind)
gfc_convert_type (iter->start, &iter->var->ts, 2);
if (gfc_resolve_expr (iter->end) == SUCCESS
&& iter->end->ts.type != BT_INTEGER)
gfc_error ("FORALL end expression at %L must be INTEGER",
&& (iter->end->ts.type != BT_INTEGER || iter->end->rank != 0))
gfc_error ("FORALL end expression at %L must be a scalar INTEGER",
&iter->end->where);
if (iter->var->ts.kind != iter->end->ts.kind)
gfc_convert_type (iter->end, &iter->var->ts, 2);
if (gfc_resolve_expr (iter->stride) == SUCCESS
&& iter->stride->ts.type != BT_INTEGER)
gfc_error ("FORALL Stride expression at %L must be INTEGER",
&iter->stride->where);
if (gfc_resolve_expr (iter->stride) == SUCCESS)
{
if (iter->stride->ts.type != BT_INTEGER || iter->stride->rank != 0)
gfc_error ("FORALL stride expression at %L must be a scalar %s",
&iter->stride->where, "INTEGER");
if (iter->stride->expr_type == EXPR_CONSTANT
&& mpz_cmp_ui(iter->stride->value.integer, 0) == 0)
gfc_error ("FORALL stride expression at %L cannot be zero",
&iter->stride->where);
}
if (iter->var->ts.kind != iter->stride->ts.kind)
gfc_convert_type (iter->stride, &iter->var->ts, 2);

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2006-01-03 Steven G. Kargl <kargls@comcast.net>
PR fortran/25101
* gfortran.dg/forall_2.f90: New test.
2006-01-03 Hans-Peter Nilsson <hp@bitrange.com>
* g++.dg/abi/thunk3.C, g++.dg/abi/thunk4.C: Gate on

9
gcc/testsuite/gfortran.dg/forall_2.f90 Normal file
View file

@ -0,0 +1,9 @@
! { dg-do compile }
! PR fortran/25101 -- Stride must be nonzero.
program forall_2
integer :: a(10),j(2),i
forall(i=1:2:0) ! { dg-error "stride expression at" }
a(i)=1
end forall
end program forall_2