diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0c0d4bd403e..3cd8b11641f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-11-12 Andrew Pinski + + PR fortran/26994 + * trans-expr.c (gfc_conv_expr_reference): Set TREE_STATIC on the + new CONST_DECL. + 2006-11-11 Tobias Schlüter * array.c: Add 2006 to copyright years. diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 6f1e163d46a..6d8b8b9865d 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 6077396aa68..9eba88e4825 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2006-11-12 Andrew Pinski + + PR fortran/26994 + * gfortran.fortran-torture/compile/transfer-1.f90: + New testcase. + 2006-11-12 H.J. Lu Zdenek Dvorak 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 00000000000..9fa4bfc34cb --- /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