+
−! { dg-do compile }
+
−! { dg-options "-fcoarray=lib" }
+
−!
+
−
+
−module m
+
− contains
+
−   subroutine f()
+
−     critical
+
−     end critical
+
−   end subroutine f
+
− end module m
+
−end program