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 |