1! { dg-do compile }
2!
3! PR fortran/31346
4!
5program main
6  real, dimension(2) :: a
7  call foo(a)                ! { dg-error "Explicit interface required" }
8end program main
9
10subroutine foo(a)
11  real, dimension(:) :: a
12end subroutine foo
13