From 63d1ffa9bcd6511189dc7f24f50fae28721c3263 Mon Sep 17 00:00:00 2001 From: Andre Vehreschild Date: Mon, 10 Jan 2022 10:42:48 +0100 Subject: [PATCH] Fix compile warnings LOGICAL -> INT Fix compile warnings about Logical to Integer conversions using the transfer()-function. --- src/tests/unit/simple/random_init.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/tests/unit/simple/random_init.f90 b/src/tests/unit/simple/random_init.f90 index b0245a4a..0ec8c546 100644 --- a/src/tests/unit/simple/random_init.f90 +++ b/src/tests/unit/simple/random_init.f90 @@ -54,7 +54,7 @@ program test_random_init if (me .eq. 1) then seed_eq = 0 else - seed_eq = any(random_num .eq. from_master) + seed_eq = transfer(any(random_num .eq. from_master), 0) end if call co_max(seed_eq, 1) @@ -73,7 +73,7 @@ program test_random_init if (me .eq. 1) then seed_eq = 0 else - seed_eq = any(random_num .eq. from_master) + seed_eq = transfer(any(random_num .eq. from_master), 0) end if call co_max(seed_eq, 1) @@ -91,7 +91,7 @@ program test_random_init from_master = random_num end if call co_broadcast(from_master, 1) - seed_eq = all(random_num .eq. from_master) + seed_eq = transfer(all(random_num .eq. from_master), 0) call co_min(seed_eq, 1) print *,"me=", me, ", rand_num=", random_num, ", from_master=", from_master, ", seed_eq=", seed_eq @@ -109,7 +109,7 @@ program test_random_init from_master = random_num end if call co_broadcast(from_master, 1) - seed_eq = all(random_num .eq. from_master) + seed_eq = transfer(all(random_num .eq. from_master), 0) call co_min(seed_eq, 1) if (me .eq. 1 .and. seed_eq .eq. 0) then