16 lines · plain
1! RUN: not %flang_fc1 -fopenmp -fopenmp-version=50 %s 2>&1 | FileCheck %s2 3!! Check for duplicate symbol use.4subroutine dup_symbol()5 type :: loc6 integer :: x7 integer :: y8 end type loc9 10 integer :: my_red11 12!CHECK: error: Duplicate definition of 'my_red' in DECLARE REDUCTION13 !$omp declare reduction(my_red : loc : omp_out%x = omp_out%x + omp_in%x) initializer(omp_priv%x = 0)14 15end subroutine dup_symbol16