program badarray
  implicit none
  integer:: j(3) = [1,2,3]
  call doubling(j)
contains
  subroutine doubling(  n)
    integer,intent(in)::n(:)
    integer::m = size(n)      ! { dg-error "Assumed-shape array" }
    print *, m                ! { dg-error "has no IMPLICIT type" }
  end subroutine doubling
end program badarray