From: Andrew Pinski <andrew_pinski@playstation.sony.com>
Date: Mon, 13 Nov 2006 14:36:09 +0000 (+0000)
Subject: re PR fortran/26994 (Scalar TRANSFER - error: invalid operand to unary operator)
X-Git-Tag: releases/gcc-4.3.0~8497
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3e806a3df4fdd07fbe13b7dd17676999f7bd6f28;p=thirdparty%2Fgcc.git

re PR fortran/26994 (Scalar TRANSFER - error: invalid operand to unary operator)

2006-11-12  Andrew Pinski  <andrew_pinski@playstation.sony.com>

        PR fortran/26994
        * gfortran.fortran-torture/compile/transfer-1.f90:
        New testcase.

2006-11-12  Andrew Pinski  <andrew_pinski@playstation.sony.com>

        PR fortran/26994
        * trans-expr.c (gfc_conv_expr_reference): Set TREE_STATIC on the
        new CONST_DECL.

From-SVN: r118761
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0c0d4bd403e1..3cd8b11641f3 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2006-11-12  Andrew Pinski  <andrew_pinski@playstation.sony.com>
+
+	PR fortran/26994
+	* trans-expr.c (gfc_conv_expr_reference): Set TREE_STATIC on the
+	new CONST_DECL.
+
 2006-11-11  Tobias Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	* array.c: Add 2006 to copyright years.
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index 6f1e163d46a6..6d8b8b9865d0 100644
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -3104,6 +3104,7 @@ gfc_conv_expr_reference (gfc_se * se, gfc_expr * expr)
     {
       var = build_decl (CONST_DECL, NULL, TREE_TYPE (se->expr));
       DECL_INITIAL (var) = se->expr;
+      TREE_STATIC (var) = 1;
       pushdecl (var);
     }
   else
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6077396aa68f..9eba88e4825c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2006-11-12  Andrew Pinski  <andrew_pinski@playstation.sony.com>
+
+	PR fortran/26994
+	* gfortran.fortran-torture/compile/transfer-1.f90:
+	New testcase.
+
 2006-11-12  H.J. Lu  <hongjiu.lu@intel.com>
 	    Zdenek Dvorak <dvorakz@suse.cz>
 
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/transfer-1.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/transfer-1.f90
new file mode 100644
index 000000000000..9fa4bfc34cb3
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/compile/transfer-1.f90
@@ -0,0 +1,22 @@
+! Bigendian test posted by Perseus in comp.lang.fortran on 4 July 2005.
+   integer(1), parameter :: zero = 0
+   LOGICAL, PARAMETER :: bigend = IACHAR(TRANSFER(1,"a")) == zero
+   LOGICAL :: bigendian
+   call foo ()
+contains
+   subroutine foo ()
+   integer :: chr, ans
+   if (bigend) then
+     ans = 1
+   else
+     ans = 0
+   end if
+   chr = IACHAR(TRANSFER(1,"a"))
+   bigendian =  chr == 0_4
+   if (bigendian) then
+     ans = 1
+   else
+     ans = 0
+   end if
+   end subroutine foo
+end