blob: 42bd02a714e1f8b3a96bbdd32db943e646ea11c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
! { dg-options "-fcoarray=single" }
! PR 103054 - wrong keyword name.
! Original test case by Damian Rouson.
program main
implicit none
logical :: co_all= .true.
call co_reduce(co_all, operator=both) ! { dg-error "Cannot find keyword" }
call co_reduce(co_all, operation=both)
contains
logical pure function both(lhs,rhs)
logical, intent(in) :: lhs, rhs
both = lhs .and. rhs
end function
end
|