blob: 64a7de5d965c079492fc1d54b481dc388d8b1381 [file] [log] [blame]
! PR middle-end/59706
! { dg-do compile }
integer i
do concurrent (i=1:2)
end do
contains
subroutine foo
end
end