! RUN: %python %S/test_errors.py %s %flang_fc1
! XFAIL: *
! Check for semantic errors in co_sum() subroutine calls
! To Do: add co_sum to the evaluation stage

module test_co_sum
  implicit none

contains

  subroutine test
  
    integer i, status
    real array(1)
    complex z(1,1,1, 1,1,1, 1,1,1, 1,1,1, 1,1,1) 
    character(len=1) message
  
    ! correct calls, should produce no errors
    call co_sum(i)
    call co_sum(i,   1)
    call co_sum(i,   1,              status)
    call co_sum(i,   1,              stat=status)
    call co_sum(i,   1,                           errmsg=message)
    call co_sum(i,   1,              stat=status, errmsg=message)
    call co_sum(i,   result_image=1, stat=status, errmsg=message)
    call co_sum(a=i, result_image=1, stat=status, errmsg=message)
    call co_sum(i,   result_image=1, stat=status, errmsg=message)
  
    call co_sum(array, result_image=1, stat=status, errmsg=message)
    call co_sum(z, result_image=1, stat=status, errmsg=message)
 
    ! the error is seen as an incorrect type for the stat= argument
    !ERROR: Actual argument for 'stat=' has bad type 'CHARACTER(KIND=1,LEN=1_8)'
    call co_sum(i, 1, message)
 
    ! the error is seen as too many arguments to the co_sum() call
    !ERROR: too many actual arguments for intrinsic 'co_sum'
    call co_sum(i,   result_image=1, stat=status, errmsg=message, 3.4)
  
    ! keyword argument with incorrect type
    !ERROR: unknown keyword argument to intrinsic 'co_sum'
    call co_sum(fake=3.4)
  
  end subroutine

end module test_co_sum