| ! { dg-do compile } | |
| ! PR93340 - test error handling of substring simplification | |
| subroutine p | |
| integer,parameter :: k = len ('a'(:0)) | |
| integer,parameter :: m = len ('a'(0:)) ! { dg-error "Substring start index" } | |
| call foo ('bcd'(-8:-9)) | |
| call foo ('bcd'(-9:-8)) ! { dg-error "Substring start index" } | |
| call foo ('bcd'(:12)) ! { dg-error "Substring end index" } | |
| call foo ('bcd'(-12:)) ! { dg-error "Substring start index" } | |
| end |