＜ALLOCATE Example Program＞

Program allocate_example
  Real, Allocatable :: a(:,:)
  Read *, n
  Allocate(a(2,n))
  Do i = 1, 2
    Do j = 1, n
      a(i,j) = i*100 + j
    End Do
  End Do
  Print *, a(2,n)
End Program

---

＜Example input 1＞

4

■ Execution Results

 2.0400000E+02

---

＜Example input 2＞

11

■ Execution Results

 2.1100000E+02