| ! { dg-do compile } | |
| ! { dg-additional-options "-Wno-analyzer-too-complex --param analyzer-max-svalue-depth=0" } | |
| program n6 | |
| integer :: ck(2,2) | |
| integer :: ac | |
| data ck /4 * 1/ | |
| call x9() | |
| contains | |
| subroutine x9() | |
| if (ck(2, 1) == 1) then | |
| ac = 1 | |
| else | |
| ac = 0 | |
| end if | |
| end subroutine x9 | |
| end program n6 |