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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118761
138bc75d-0d04-0410-961f-
82ee72b054a4
+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\81üter <tobias.schlueter@physik.uni-muenchen.de>
* array.c: Add 2006 to copyright years.
{
var = build_decl (CONST_DECL, NULL, TREE_TYPE (se->expr));
DECL_INITIAL (var) = se->expr;
+ TREE_STATIC (var) = 1;
pushdecl (var);
}
else
+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>
--- /dev/null
+! 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