| ! { dg-do compile } | |
| ! Fails to compile because assumed-size arrays are not yet | |
| ! handled with LOCAL / LOCAL_INIT, cf. PR fortran/101602 (comment 6) | |
| subroutine test_it(xx, yy) | |
| implicit none | |
| integer :: xx(:), yy(:,:) | |
| integer :: i, sz1, sz2 | |
| sz1 = size(xx) | |
| do , concurrent (i = 1 : sz1) local(xx) ! { dg-error "39: Sorry, LOCAL specifier at .1. for assumed-size array 'xx' is not yet supported" } | |
| xx(i) = 1 | |
| end do | |
| sz2 = size(yy,dim=1) | |
| do , concurrent (i=1:sz2) local_init(yy) ! { dg-error "40: Sorry, LOCAL_INIT specifier at .1. for assumed-size array 'yy' is not yet supported" } | |
| yy(i,:) = 1 | |
| end do | |
| end |