Added critical construct to Modern Fortran.