commit 58cfec3a6e756b534b33787e51c52f5fc63b53ab
Author: Tobias Burnus <tobias@codesourcery.com>
Date: Mon Aug 3 09:41:24 2020 +0200
libgfortran/caf/single.c: Fix typo.
libgfortran/ChangeLog
* caf/single.c (_gfortran_caf_lock): Fix typo.
---
libgfortran/caf/single.c | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
@@ -2961,7 +2961,8 @@ _gfortran_caf_event_query (caf_token_t token, size_t index,
void
_gfortran_caf_lock (caf_token_t token, size_t index,
int image_index __attribute__ ((unused)),
- int *aquired_lock, int *stat, char *errmsg, size_t errmsg_len)
+ int *acquired_lock, int *stat, char *errmsg,
+ size_t errmsg_len)
{
const char *msg = "Already locked";
bool *lock = &((bool *) MEMTOK (token))[index];
@@ -2969,16 +2970,16 @@ _gfortran_caf_lock (caf_token_t token, size_t index,
if (!*lock)
{
*lock = true;
- if (aquired_lock)
- *aquired_lock = (int) true;
+ if (acquired_lock)
+ *acquired_lock = (int) true;
if (stat)
*stat = 0;
return;
}
- if (aquired_lock)
+ if (acquired_lock)
{
- *aquired_lock = (int) false;
+ *acquired_lock = (int) false;
if (stat)
*stat = 0;
return;