From 5fa1c8d7d812714c6d13630bd88808093198f8b7 Mon Sep 17 00:00:00 2001 From: Melven Roehrig-Zoellner Date: Mon, 20 Jun 2016 14:05:07 +0200 Subject: [PATCH 1/2] Fortran grammar: operator names are case insensitive --- src/F2x/grammar/fortran.g | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/src/F2x/grammar/fortran.g b/src/F2x/grammar/fortran.g index c19e386..4fa392c 100755 --- a/src/F2x/grammar/fortran.g +++ b/src/F2x/grammar/fortran.g @@ -74,21 +74,21 @@ T_UNDERSCORE : '_' ; T_SEMICOLON : ';' ; T_DEFINED_OP : '\.[a-zA-Z]+\.' (%unless - T_EQ : '\.EQ\.' ; - T_NE : '\.NE\.' ; - T_LT : '\.LT\.' ; - T_LE : '\.LE\.' ; - T_GT : '\.GT\.' ; - T_GE : '\.GE\.' ; - - T_TRUE : '\.TRUE\.' ; - T_FALSE : '\.FALSE\.' ; - - T_NOT : '\.NOT\.' ; - T_AND : '\.AND\.' ; - T_OR : '\.OR\.' ; - T_EQV : '\.EQV\.' ; - T_NEQV : '\.NEQV\.'; + T_EQ : '(?i)\.EQ\.' ; + T_NE : '(?i)\.NE\.' ; + T_LT : '(?i)\.LT\.' ; + T_LE : '(?i)\.LE\.' ; + T_GT : '(?i)\.GT\.' ; + T_GE : '(?i)\.GE\.' ; + + T_TRUE : '(?i)\.TRUE\.' ; + T_FALSE : '(?i)\.FALSE\.' ; + + T_NOT : '(?i)\.NOT\.' ; + T_AND : '(?i)\.AND\.' ; + T_OR : '(?i)\.OR\.' ; + T_EQV : '(?i)\.EQV\.' ; + T_NEQV : '(?i)\.NEQV\.'; ); T_PERIOD_EXPONENT From 100d627db3699ece8ee89b999e9dafd02ae1aa98 Mon Sep 17 00:00:00 2001 From: Melven Roehrig-Zoellner Date: Mon, 20 Jun 2016 14:06:27 +0200 Subject: [PATCH 2/2] Fortran grammar: real constants can have kind parameters --- src/F2x/grammar/fortran.g | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/F2x/grammar/fortran.g b/src/F2x/grammar/fortran.g index 4fa392c..2d68bec 100755 --- a/src/F2x/grammar/fortran.g +++ b/src/F2x/grammar/fortran.g @@ -655,7 +655,7 @@ signed_real_literal_constant ; real_constant_number - : T_DIGIT_STRING T_PERIOD_EXPONENT + : T_DIGIT_STRING T_PERIOD_EXPONENT (T_UNDERSCORE kind_param)? ; real_literal_constant