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