1! { dg-do compile }
2
3program test_image_status_1
4  implicit none
5
6  integer :: isv
7  integer(kind=1) :: k1
8  integer(kind=2) :: k2
9  integer(kind=4) :: k4
10  integer(kind=8) :: k8
11
12  isv = image_status(1) ! Ok
13  isv = image_status(-1)      ! { dg-error "'image' argument of 'image_status' intrinsic at \\(1\\) must be positive" }
14  isv = image_status(0)       ! { dg-error "'image' argument of 'image_status' intrinsic at \\(1\\) must be positive" }
15  isv = image_status(.true.)  ! { dg-error "'image' argument of 'image_status' intrinsic at \\(1\\) must be INTEGER" }
16  isv = image_status([1,2,3]) ! { dg-error "'image' argument of 'image_status' intrinsic at \\(1\\) must be a scalar" }
17  isv = image_status(k1) ! Ok
18  isv = image_status(k2) ! Ok
19  isv = image_status(k4) ! Ok
20  isv = image_status(k8) ! Ok
21  isv = image_status(1, team=1) ! { dg-error "'team' argument of 'image_status' intrinsic at \\(1\\) not yet supported" }
22  isv = image_status()          ! { dg-error "Missing actual argument 'image' in call to 'image_status' at \\(1\\)" }
23  isv = image_status(team=1)    ! { dg-error "Missing actual argument 'image' in call to 'image_status' at \\(1\\)" }
24
25end program test_image_status_1
26
27