＜ALLOCATABLE Example Program＞

Program allocatable_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

---

＜ALLOCATABLE Example Program 2＞

Program allocatable_example_2
  Character(:),Allocatable :: name
  Allocate(name,Source='Fred Nurke')
  Print *,Len(name),name
  Deallocate(name)
  Allocate(name,Source='')
  Print *,Len(name),name
  name = 'Akira'
  Print *,Len(name),name
  name(:) = '123456789'
  Print *,Len(name),name
End Program

---

■ Execution Results

 10 Fred Nurke
 0
 5 Akira
 5 12345