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