1! { dg-do run }
2
3program test_image_status_2
4  use iso_fortran_env , only : STAT_STOPPED_IMAGE
5  implicit none
6
7  if (image_status(1) /= 0) error stop "Image 1 should report OK."
8  if (image_status(2) /= STAT_STOPPED_IMAGE) error stop "Image 2 should be stopped."
9  if (image_status(3) /= STAT_STOPPED_IMAGE) error stop "Image 3 should be stopped."
10
11end program test_image_status_2
12
13