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