--- Comment #7 from pault at gcc dot gnu dot org 2007-08-18 11:22 ---
Fixed on trunk.
Paul
--
pault at gcc dot gnu dot org changed:
What|Removed |Added
Statu
--- Comment #6 from pault at gcc dot gnu dot org 2007-08-18 10:48 ---
Subject: Bug 32881
Author: pault
Date: Sat Aug 18 10:47:58 2007
New Revision: 127611
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=127611
Log:
2007-08-18 Paul Thomas <[EMAIL PROTECTED]>
PR fortran/
--- Comment #5 from patchapp at dberlin dot org 2007-08-17 15:10 ---
Subject: Bug number PR32881
A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is
http://gcc.gnu.org/ml/gcc-patches/2007-08/msg01078.html
--
http://gcc.gnu.org/bugzilla/sh
--- Comment #4 from pault at gcc dot gnu dot org 2007-08-14 16:44 ---
This fixes the problem. However there are some odd regressions that do not
seem to have anything to do with it but which must be investigated.
Paul
Index: gcc/fortran/expr.c
=
--- Comment #3 from dfranke at gcc dot gnu dot org 2007-07-29 13:01 ---
This is accepted:
$> cat pr32881.f90
program foo
integer :: i = 42
print *, bar()
contains
pure integer function bar ()
bar = i
end function
end program
--
dfranke at gcc dot gnu dot org changed:
--- Comment #2 from burnus at gcc dot gnu dot org 2007-07-24 20:53 ---
Of cause it did not regtest :-(
(fails for impure_assignment_2.f90, l.58, were "B" is a host-associated
variable; thus gfc_pure(NULL) seems to be ok.)
The problem is actually that gfc_check_pointer_assign is called t
--- Comment #1 from burnus at gcc dot gnu dot org 2007-07-24 17:22 ---
Confirmed.
The problem is that gfc_pure(NULL) is called and thus
sym = gfc_current_ns->proc_name;
is used as procedure symbol, which is "bar" and not "foo".
The following patch fixes this, but I have not regteste
