blob: eb689f0f408ae4571259bbc4e38c08a21d116aa4 [file] [log] [blame]
! { dg-do compile }
! PR fortran/103777 - ICE in gfc_simplify_maskl
! Contributed by G.Steinmetz
program p
print *, maskl([999]) ! { dg-error "must be less than or equal" }
print *, maskr([999]) ! { dg-error "must be less than or equal" }
print *, maskl([-999]) ! { dg-error "must be nonnegative" }
print *, maskr([-999]) ! { dg-error "must be nonnegative" }
print *, maskl([32],kind=4)
print *, maskl([33],kind=4) ! { dg-error "must be less than or equal" }
print *, maskl([64],kind=8)
print *, maskl([65],kind=8) ! { dg-error "must be less than or equal" }
end