＜CONTIGUOUS Example Program＞

Program contiguous_example
  Integer :: k(10)
  k = 0
  Print *, 'Old k', k
  Print *, 'Actual is contiguous?', Is_Contiguous(k(::2))
  Call sub(k(::2))
  Print *, 'New k', k
Contains
  Subroutine sub(x)
    Integer, Contiguous :: x(:)
    Print *, 'Dummy is contiguous?', Is_Contiguous(x)
    x = 42
  End Subroutine
End Program

---

■ Execution Results

 Old k 0 0 0 0 0 0 0 0 0 0
 Actual is contiguous? F
 Dummy is contiguous? T
 New k 42 0 42 0 42 0 42 0 42 0