＜ASSIGN Example Program＞

Program assign_example
  Integer format,branch
  Assign 1 To format
  Print format
  Assign 2 To branch
  Go To branch
  Stop 'Impossible'
1 Format(1X,'This is an example of ASSIGN format.')
2 Print *,'Arrived at ASSIGNed branch'
End Program

---

■ Execution Results

 This is an example of ASSIGN format.
 Arrived at ASSIGNed branch