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