1 2 3 4 5 6 7 8 9 10
! PR middle-end/59706 ! { dg-do compile } integer i do concurrent (i=1:2) end do contains subroutine foo end end