<Example Program>

Program is_contiguous_example
  Integer, Pointer :: i(:)
  Integer, Target :: k(100)
  i => k
  Print *, 'k', Is_Contiguous(i)
  i => k(100:1:-1)
  Print *, 'k backwards', Is_Contiguous(i)
  i => k(::2)
  Print *, 'k even', Is_Contiguous(i)
End Program

Execution Results

 k T
 k backwards F
 k even F