gcc/testsuite/gfortran.dg/num_images_1.f90

! { dg-do compile }
! { dg-options "-fcoarray=single -std=f2008" }
! PR  Fortran/80768
! Reported by Vittorio Zecca.
program foo
   implicit none
   integer k5
   k5 = num_images(failed=.false.) ! { dg-error "argument to NUM_IMAGES" }
end program foo