| ! { dg-do compile } | |
| ! { dg-additional-options "-march=core-avx2" { target x86_64-*-* i?86-*-* } } | |
| subroutine foo | |
| integer :: a, b, c, d, e | |
| integer, dimension(:), allocatable :: f, g, h | |
| call zoo (a) | |
| call zoo (b) | |
| call zoo (c) | |
| if(a == b) then | |
| allocate(g(0:d-1), h(0:d-1)) | |
| else | |
| allocate(g(1), h(1)) | |
| if (b /= 0) then | |
| call zoo(b) | |
| endif | |
| endif | |
| if(a == b) then | |
| do d=0,c-1 | |
| e = e + g(d) | |
| if(d == 0) then | |
| h(d) = 0 | |
| else | |
| h(d) = h(d-1) + g(d-1) | |
| endif | |
| end do | |
| endif | |
| if(a == b) then | |
| allocate(f(e), g(e)) | |
| endif | |
| if(a == 0) then | |
| call boo(e) | |
| endif | |
| end subroutine foo |