＜SOURCE= Example Program＞

Program source_example
  Integer,Allocatable :: a(:)
  Class(*),Allocatable :: x
  Allocate(a,Source=[11,22,33])
  Print 1,Size(a),a
1 Format(1X,I0,':',999(1X,I0,:))
  Allocate(x,Source='Hello source')
  Select Type (x)
  Type Is (Character(*))
    Print *,x
  Class Default
    Stop 'Impossible'
  End Select
End Program

---

■ Execution Results

 3: 11 22 33
 Hello source