Use size of correct struct in allocation for sync interface.

libgfortran/ChangeLog:

	* caf_shared/counter_barrier.c (change_internal_barrier_count):
	Adjust whitespace.
	* caf_shared/sync.c (sync_iface_init): Use size of correct
	struct.

diff --git a/libgfortran/caf_shared/counter_barrier.c b/libgfortran/caf_shared/counter_barrier.c
index acf94d9761dc2eb24003e5b22935fc01dcc1718c..9d7378ebca4362b0cde7052a7f1c8fa1a1f791c0 100644 (file)
--- a/libgfortran/caf_shared/counter_barrier.c
+++ b/libgfortran/caf_shared/counter_barrier.c
@@ -87,6 +87,7 @@ change_internal_barrier_count (counter_barrier *b, int val)
 }
 
 /* Adjust all associated barriers of a counter.  */
+
 int
 waitable_counter_add (waitable_counter *c, int val)
 {

diff --git a/libgfortran/caf_shared/sync.c b/libgfortran/caf_shared/sync.c
index 851bf759a1d6824ec6d54525ba00564cd9988d2a..76612dc477df91d83895d9737a04f192434f9c5d 100644 (file)
--- a/libgfortran/caf_shared/sync.c
+++ b/libgfortran/caf_shared/sync.c
@@ -63,7 +63,7 @@ sync_iface_init (sync_iface *si, alloc_iface *ai, shared_memory *sm)
 {
   si->cis = SHMPTR_AS (
       sync_iface_shared *,
-      shared_malloc (get_allocator (ai), sizeof (collsub_iface_shared)), sm);
+      shared_malloc (get_allocator (ai), sizeof (sync_iface_shared)), sm);
 
   sync_all_init (&si->cis->sync_all);
   initialize_shared_mutex (&si->cis->table_lock);