1! { dg-do compile }
2
3program test_failed_images_1
4  implicit none
5
6  integer, allocatable :: fi(:)
7  real :: r
8  integer :: i
9
10  fi = failed_images()         ! OK
11  fi = failed_images(TEAM=1)   ! { dg-error "'team' argument of 'failed_images' intrinsic at \\(1\\) not yet supported" }
12  fi = failed_images(KIND=1)   ! OK
13  fi = failed_images(KIND=4)   ! OK
14  fi = failed_images(KIND=0)   ! { dg-error "'kind' argument of 'failed_images' intrinsic at \\\(1\\\) must be positive" }
15  fi = failed_images(KIND=r)   ! { dg-error "'kind' argument of 'failed_images' intrinsic at \\\(1\\\) must be INTEGER" }
16  fi = failed_images(KIND=i)   ! { dg-error "Constant expression required at \\\(1\\\)" }
17  fi = failed_images(KIND=42)  ! { dg-error "'kind' argument of 'failed_images' intrinsic at \\\(1\\\) shall specify a valid integer kind" }
18
19end program test_failed_images_1
20
21