Message ID | 528671E6.7010802@charter.net |
---|---|
State | New |
Headers | show |
Jerry DeLisle wrote: > The attached patch sets the create flag for the case where action is specified > as read only. > Regression tested on x86-64 Linux. > OK for trunk? OK. Thanks for the patch! Tobias > 2013-11-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> > > PR fortran/59108 > * io/unix.c (regular_file): If the ACTION is read only set > create flag to zero. >
Index: unix.c =================================================================== --- unix.c (revision 204848) +++ unix.c (working copy) @@ -1329,6 +1329,10 @@ regular_file (st_parameter_open *opp, unit_flags * break; case STATUS_UNKNOWN: + crflag = 0; + if (flags->action == ACTION_READ) + break; + /* Fall through. */ case STATUS_SCRATCH: crflag = O_CREAT; break;