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