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