<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