Commit 0bf68c6e by Steven G. Kargl Committed by Paul Brook

etime.c (etime_sub): Remove array rank check; Add check for sufficient space.

	* etime.c (etime_sub): Remove array rank check;
	Add check for sufficient space.

From-SVN: r83456
parent fa841200
2004-06-21 Steven G. Kargl <kargls@comcast.net>
* etime.c (etime_sub): Remove array rank check;
Add check for sufficient space.
2004-06-19 Bud Davis <bdavis9659@comcast.net> 2004-06-19 Bud Davis <bdavis9659@comcast.net>
PR gfortran/16080 PR gfortran/16080
......
...@@ -57,9 +57,8 @@ prefix(etime_sub) (gfc_array_r4 *t, GFC_REAL_4 *result) ...@@ -57,9 +57,8 @@ prefix(etime_sub) (gfc_array_r4 *t, GFC_REAL_4 *result)
tt = -1.; tt = -1.;
#endif #endif
dim = GFC_DESCRIPTOR_RANK (t); if (((t->dim[0].ubound + 1 - t->dim[0].lbound)) < 2)
if (dim != 1) runtime_error ("Insufficient number of elements in TARRAY.");
runtime_error ("Array rank of TARRAY is not 1.");
if (t->dim[0].stride == 0) if (t->dim[0].stride == 0)
t->dim[0].stride = 1; t->dim[0].stride = 1;
......
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