1! { dg-do compile }
2! { dg-options "-fcoarray=lib" }
3!
4
5module m
6 contains
7   subroutine f()
8     critical
9     end critical
10   end subroutine f
11 end module m
12end program
13