1! { dg-do compile }
2!
3! PR fortran/33231
4!
5! Elemental function:
6! Intent OUT/INOUT dummy: Actual needs to be an array
7! if any actual is an array
8!
9program prog
10implicit none
11integer :: i, j(2)
12call sub(i,1,2) ! OK, only scalar
13call sub(j,1,2) ! OK, scalar IN, array OUT
14call sub(j,[1,2],3) ! OK, scalar & array IN, array OUT
15call sub(j,[1,2],[1,2]) ! OK, all arrays
16
17call sub(i,1,2) ! OK, only scalar
18call sub(i,[1,2],3) ! { dg-error "is a scalar" }
19call sub(i,[1,2],[1,2]) ! { dg-error "is a scalar" }
20contains
21elemental subroutine sub(a,b,c)
22  integer :: func, a, b, c
23  intent(in) :: b,c
24  intent(out) :: a
25  a = b +c
26end subroutine sub
27end program prog
28