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