This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[gfortran patch] PR 23661
- From: Uttam Pawar <uttamp at us dot ibm dot com>
- To: gcc-patches at gcc dot gnu dot org
- Cc: fortran at gcc dot gnu dot org
- Date: Wed, 31 Aug 2005 13:03:04 -0700
- Subject: [gfortran patch] PR 23661
- References: <20050831191313.GA933@acclab.helsinki.fi>
Attached patch is the proposed fix.
Bootstraped ok and regression test is in progress on powerpc64-linux.
Thanks,
Uttam
diff -urN gcc.mline/gcc/fortran/ChangeLog gcc.mine/gcc/fortran/ChangeLog
--- gcc.mline/gcc/fortran/ChangeLog 2005-08-31 11:57:10.000000000 -0700
+++ gcc.mine/gcc/fortran/ChangeLog 2005-08-31 12:10:39.000000000 -0700
@@ -1,3 +1,8 @@
+2005-08-31 Uttam Pawar <uttamp@us.ibm.com>
+
+ * gfortran.h (gfc_statement): Add new token.
+ * parse.c (decode_statement): Parse PRINT FMT statement.
+
2005-08-27 Erik Edelmann <erik.edelmann@iki.fi>
* trans-array.c (gfc_trans_deferred_array): Fix comments.
diff -urN gcc.mline/gcc/fortran/gfortran.h gcc.mine/gcc/fortran/gfortran.h
--- gcc.mline/gcc/fortran/gfortran.h 2005-08-31 10:49:55.000000000 -0700
+++ gcc.mine/gcc/fortran/gfortran.h 2005-08-31 10:55:05.000000000 -0700
@@ -202,7 +202,7 @@
ST_STOP, ST_SUBROUTINE, ST_TYPE, ST_USE, ST_WHERE_BLOCK, ST_WHERE, ST_WRITE,
ST_ASSIGNMENT, ST_POINTER_ASSIGNMENT, ST_SELECT_CASE, ST_SEQUENCE,
ST_SIMPLE_IF, ST_STATEMENT_FUNCTION, ST_DERIVED_DECL, ST_LABEL_ASSIGNMENT,
- ST_NONE
+ ST_NONE, ST_WRITE_FMT
}
gfc_statement;
diff -urN gcc.mline/gcc/fortran/parse.c gcc.mine/gcc/fortran/parse.c
--- gcc.mline/gcc/fortran/parse.c 2005-08-31 10:49:55.000000000 -0700
+++ gcc.mine/gcc/fortran/parse.c 2005-08-31 11:51:35.000000000 -0700
@@ -249,6 +249,7 @@
case 'p':
match ("print", gfc_match_print, ST_WRITE);
+ match ("print fmt", gfc_match_print, ST_WRITE_FMT);
match ("parameter", gfc_match_parameter, ST_PARAMETER);
match ("pause", gfc_match_pause, ST_PAUSE);
match ("pointer", gfc_match_pointer, ST_ATTR_DECL);