|
 |
840d93 |
From ced1b6638459f33dc9f22a0cd959f97c05a62e22 Mon Sep 17 00:00:00 2001
|
|
|
840d93 |
From: Jim MacArthur <jim.macarthur@codethink.co.uk>
|
|
|
840d93 |
Date: Wed, 7 Oct 2015 18:23:31 -0400
|
|
|
840d93 |
Subject: [PATCH 11/23] Allow character-to-int conversions in DATA statements
|
|
|
840d93 |
|
|
|
840d93 |
This feature is enabled by the `-std=extra-legacy` compiler flag.
|
|
|
840d93 |
---
|
|
|
840d93 |
|
|
|
840d93 |
0011-Allow-character-to-int-conversions-in-DATA-statement.patch
|
|
|
840d93 |
|
|
|
840d93 |
commit 11b148af8967669bcebd91ea6fdae28e9ec8e97c
|
|
|
840d93 |
Author: Jim MacArthur <jim.macarthur@codethink.co.uk>
|
|
|
840d93 |
Date: Wed Oct 7 18:23:31 2015 -0400
|
|
|
840d93 |
|
|
|
840d93 |
Allow character-to-int conversions in DATA statements
|
|
|
840d93 |
|
|
|
840d93 |
This feature is enabled by the `-std=extra-legacy` compiler flag.
|
|
|
840d93 |
|
|
|
840d93 |
Test written by: Francisco Redondo Marchena <francisco.marchena@codethink.co.uk>
|
|
|
840d93 |
|
|
|
840d93 |
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
|
|
|
840d93 |
index f347c753702..9982b8d0e85 100644
|
|
|
840d93 |
--- a/gcc/fortran/expr.c
|
|
|
840d93 |
+++ b/gcc/fortran/expr.c
|
|
|
840d93 |
@@ -3294,6 +3294,10 @@ gfc_check_assign (gfc_expr *lvalue, gfc_expr *rvalue, int conform,
|
|
|
840d93 |
|| rvalue->ts.type == BT_HOLLERITH)
|
|
|
840d93 |
return true;
|
|
|
840d93 |
|
|
|
840d93 |
+ if ((gfc_option.allow_std & GFC_STD_EXTRA_LEGACY)
|
|
|
840d93 |
+ && gfc_numeric_ts (&lvalue->ts) && rvalue->ts.type == BT_CHARACTER)
|
|
|
840d93 |
+ return true;
|
|
|
840d93 |
+
|
|
|
840d93 |
if (lvalue->ts.type == BT_LOGICAL && rvalue->ts.type == BT_LOGICAL)
|
|
|
840d93 |
return true;
|
|
|
840d93 |
|
|
|
840d93 |
diff --git a/gcc/testsuite/gfortran.dg/dec_char_to_int_conversion_in_data.f b/gcc/testsuite/gfortran.dg/dec_char_to_int_conversion_in_data.f
|
|
|
840d93 |
new file mode 100644
|
|
|
840d93 |
index 00000000000..e0e4f735243
|
|
|
840d93 |
--- /dev/null
|
|
|
840d93 |
+++ b/gcc/testsuite/gfortran.dg/dec_char_to_int_conversion_in_data.f
|
|
|
840d93 |
@@ -0,0 +1,11 @@
|
|
|
840d93 |
+! { dg-do compile }
|
|
|
840d93 |
+! { dg-options "-std=extra-legacy" }
|
|
|
840d93 |
+!
|
|
|
840d93 |
+! Test character to int conversion in DATA types
|
|
|
840d93 |
+!
|
|
|
840d93 |
+ PROGRAM char_int_data_type
|
|
|
840d93 |
+ INTEGER*1 ai(2)
|
|
|
840d93 |
+
|
|
|
840d93 |
+ DATA ai/'1',1/
|
|
|
840d93 |
+ if(ai(1).NE.49) STOP 1
|
|
|
840d93 |
+ END
|