＜STOP Example Program 1＞

Program stop_example_1
  Print *, 'ABC'
  Call sub
  Print *, 'XYZ'
End Program
Subroutine sub
  Stop
End Subroutine

---

■ Execution Results

 ABC

＜STOP Example Program 2＞

Program stop_example_2
  Print *, 'Hello'
  Stop 'Goodbye'
End Program

---

■ Execution Results

 Hello
STOP: Goodbye

＜STOP Example Program 3＞

Program stop_example_3
  Print *,'Program started'
  Call stopme('quietly',.True.)
Contains
  Subroutine stopme(why,quiet)
    Character(*),Intent(In) :: why
    Logical,Intent(In) :: quiet
    Stop 'Program stopped '//why, Quiet=quiet
  End Subroutine
End Program

---

■ Execution Results

 Program started