PR 53456 Fix typo in gf_cputime.

2012-06-04  Robert Mason  <rbmj@verizon.net>
	    Janne Blomqvist  <jb@gcc.gnu.org>

	PR fortran/53456
	* intrinsics/time_1.h (gf_cputime): Fix typo in clock_gettime branch.

From-SVN: r188201
This commit is contained in:
Robert Mason 2012-06-04 22:13:49 +03:00 committed by Janne Blomqvist
parent fbc932e72c
commit 1e5c1001b4
2 changed files with 6 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2012-06-04 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/53456
* intrinsics/time_1.h (gf_cputime): Fix typo in clock_gettime branch.
2012-06-01 Tobias Burnus <burnus@net-b.de>
* intrinsics/chmod.c (chmod_func): On MinGW, don't set is_dir and

View File

@ -178,7 +178,7 @@ gf_cputime (long *user_sec, long *user_usec, long *system_sec, long *system_usec
struct timespec ts;
int err = clock_gettime (CLOCK_PROCESS_CPUTIME_ID, &ts);
*user_sec = ts.tv_sec;
*user_usecs = ts.tv_nsec / 1000;
*user_usec = ts.tv_nsec / 1000;
*system_sec = *system_usec = 0;
return err;