| ! { dg-do compile } | |
| ! | |
| ! PR 56081: [4.7/4.8 Regression] Segfault ICE on select with bad case | |
| ! | |
| ! Contributed by Richard L Lozes <richard@lozestech.com> | |
| implicit none | |
| integer :: a(4) | |
| select case(a) ! { dg-error "must be a scalar expression" } | |
| case (0) | |
| end select | |
| end |