gcc/testsuite/gfortran.dg/num_images_1.f90

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