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