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