libgfortran/io/write_float.def

93       (dtp->u.p.current_unit->round_status == ROUND_UNSPECIFIED
94        || dtp->u.p.current_unit->round_status == ROUND_PROCDEFINED))
95     dtp->u.p.current_unit->round_status = ROUND_NEAREST;
99   if (dtp->u.p.current_unit->round_status != ROUND_UNSPECIFIED
100       && dtp->u.p.current_unit->round_status != ROUND_PROCDEFINED)
261       if (dtp->u.p.current_unit->round_status != ROUND_UNSPECIFIED
262 	  && dtp->u.p.current_unit->round_status != ROUND_PROCDEFINED)
347   switch (dtp->u.p.current_unit->round_status)
634 	  && (dtp->u.p.current_unit->round_status == ROUND_UNSPECIFIED
635 	      || dtp->u.p.current_unit->round_status == ROUND_PROCDEFINED))
936   if (dtp->u.p.current_unit->round_status != ROUND_UNSPECIFIED
937       && dtp->u.p.current_unit->round_status != ROUND_PROCDEFINED)
994       switch (dtp->u.p.current_unit->round_status)\