Program test_assumed_shape
  Implicit None
  Call test([1,2,3])
Contains
  Subroutine test(x)
    Integer,Intent(In) :: x(:)
    Integer i
    Do i=1,10
      Print *,x(i)
    End Do
  End Subroutine
End Program