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