29 lines · plain
1! RUN: not %flang_fc1 -fdebug-dump-symbols -fopenmp -fopenmp-version=50 %s 2>&1 | FileCheck %s2 3module m14 interface operator(.fluffy.)5 procedure my_mul6 end interface7 type t18 integer :: val = 19 end type10!$omp declare reduction(.fluffy.:t1:omp_out=omp_out.fluffy.omp_in)11contains12 function my_mul(x, y)13 type (t1), intent (in) :: x, y14 type (t1) :: my_mul15 my_mul%val = x%val * y%val16 end function my_mul17 18 subroutine subr(a, r)19 implicit none20 integer, intent(in), dimension(10) :: a21 integer, intent(out) :: r22 integer :: i23 !$omp do parallel reduction(.fluffy.:r)24!CHECK: error: The type of 'r' is incompatible with the reduction operator.25 do i=1,1026 end do27 end subroutine subr28end module m129