23 lines · plain
1! REQUIRES: openmp_runtime2 3! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags4! Semantic checks on invalid atomic capture clause5 6use omp_lib7 logical x8 complex y9 !$omp atomic capture10 !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types LOGICAL(4) and COMPLEX(4)11 x = y12 !ERROR: Operands of + must be numeric; have COMPLEX(4) and LOGICAL(4)13 y = y + x14 !$omp end atomic15 16 !$omp atomic capture17 !ERROR: Operands of + must be numeric; have COMPLEX(4) and LOGICAL(4)18 y = y + x19 !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types LOGICAL(4) and COMPLEX(4)20 x = y21 !$omp end atomic22end23