This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH, gfortran] Fix for fortran PR/12701.
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- To: gcc-patches at gcc dot gnu dot org
- Cc: fortran at gcc dot gnu dot org
- Date: Fri, 24 Oct 2003 21:14:28 +0200
- Subject: [PATCH, gfortran] Fix for fortran PR/12701.
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
The attached patch fixes fortran PR/12701 with no regressions.
OK to apply (Paul, Steven) ?
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://gcc.gnu.org/fortran/ (under construction)
2003-10-24 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/12701
* open.c (new_unit): If no file name given, substitute
"fort.<unit>".
*** open.c.orig Fri Sep 19 21:46:40 2003
--- open.c Fri Oct 24 18:15:00 2003
*************** new_unit (unit_flags * flags)
*** 354,362 ****
if (ioparm.file != NULL)
break;
! generate_error (ERROR_MISSING_OPTION,
! "FILE parameter required in OPEN statement");
! return;
default:
internal_error ("new_unit(): Bad status");
--- 354,362 ----
if (ioparm.file != NULL)
break;
! ioparm.file = get_mem (5 + 10);
! ioparm.file_len = sprintf(ioparm.file, "fort.%d", ioparm.unit);
! break;
default:
internal_error ("new_unit(): Bad status");