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