mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-10 12:44:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libgomp/27254 (FAIL: libgomp.fortran/reduction6.f90)

Browse Source 
PR libgomp/27254
	* io/unit.c (get_internal_unit): Initialize and lock thread mutex
	for internal units.

From-SVN: r114765
This commit is contained in:
John David Anglin 2006-06-19 03:07:54 +00:00 committed by John David Anglin
parent 75354be7aa
commit 9b7e4f4ff8
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2006-06-18 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
PR libgomp/27254
* io/unit.c (get_internal_unit): Initialize and lock thread mutex
for internal units.
2006-06-06 Janne Blomqvist <jb@gcc.gnu.org>
* m4/in_pack.m4: Add TODO comment about detecting temporaries,

9
libgfortran/io/unit.c
View File

@ -376,6 +376,15 @@ get_internal_unit (st_parameter_dt *dtp)
}
memset (iunit, '\0', sizeof (gfc_unit));
#ifdef __GTHREAD_MUTEX_INIT
{
__gthread_mutex_t tmp = __GTHREAD_MUTEX_INIT;
iunit->lock = tmp;
}
#else
__GTHREAD_MUTEX_INIT_FUNCTION (&iunit->lock);
#endif
__gthread_mutex_lock (&iunit->lock);
iunit->recl = dtp->internal_unit_len;