＜FAILED_IMAGES Example Program＞

Program failed_images_example
  Use Iso_Fortran_Env
  Implicit None
  Integer istat
  If (Num_Images()<3) Error Stop 'Not enough images'
  If (This_Image()==3) Fail Image
  Sync All(Stat=istat)
  If (istat==Stat_Failed_Image) Then
    If (This_Image()==1) Print *,'Failed images:',Failed_Images()
  End If
End Program

---

■ Execution Results

 Failed images: 3
Warning: 1 image(s) failed