＜ALLOCATED Example Program＞

Program allocated_example
  Real, Allocatable :: x(:,:)
  Print 1, Allocated(x)
  Allocate(x(3,4))
  Print 1, Allocated(x)
1 Format (1X, 'X is now allocated: ', L1)
End Program

---

■ Execution Results

 X is now allocated: F
 X is now allocated: T