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