| ! { 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 |