gcc/testsuite/gfortran.dg/whole_file_16.f90 - gcc - Git at Google

 ! { dg-do compile }
 !
 ! PR fortran/31346
 !
 program main
   real, dimension(2) :: a
   call foo(a)                ! { dg-error "Explicit interface required" }
 end program main

 subroutine foo(a)
   real, dimension(:) :: a
 end subroutine foo
	! { dg-do compile }
	!
	! PR fortran/31346
	!
	program main
	real, dimension(2) :: a
	call foo(a) ! { dg-error "Explicit interface required" }
	end program main

	subroutine foo(a)
	real, dimension(:) :: a
	end subroutine foo