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