OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Steven G. Kargl 2004-06-21 22:25:12 +00:00 committed by Paul Brook
parent fa84120041
commit 0bf68c6eab
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
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>
PR gfortran/16080

5
libgfortran/intrinsics/etime.c
View File

@ -57,9 +57,8 @@ prefix(etime_sub) (gfc_array_r4 *t, GFC_REAL_4 *result)
tt = -1.;
#endif
dim = GFC_DESCRIPTOR_RANK (t);
if (dim != 1)
runtime_error ("Array rank of TARRAY is not 1.");
if (((t->dim[0].ubound + 1 - t->dim[0].lbound)) < 2)
runtime_error ("Insufficient number of elements in TARRAY.");
if (t->dim[0].stride == 0)
t->dim[0].stride = 1;