--- Comment #7 from pinskia at gcc dot gnu dot org 2007-02-02 00:28 ---
*** This bug has been marked as a duplicate of 30391 ***
--
pinskia at gcc dot gnu dot org changed:
What|Removed |Added
--
--- Comment #6 from kargl at gcc dot gnu dot org 2007-02-02 00:12 ---
Further reduction is possible.
subroutine dynamic(ndim, kv)
implicit none
integer :: ndim
real :: kvf(3,3), kv(3,3)
if (ndim .eq. 3) then
call kvector3Df(kvf)
else
kvf(1:3,1:3) = kv(1:3,1:3)
--- Comment #5 from kargl at gcc dot gnu dot org 2007-02-02 00:08 ---
Reduced testcase
module current
integer, save :: ndim
real, save :: kv(3,3)
end module current
subroutine dynamic
use current
implicit none
real :: kvf(3,3)
if (ndim .eq. 3) then
call kve
--- Comment #4 from kargl at gcc dot gnu dot org 2007-02-01 23:36 ---
Just a quick note. dynamic.f will compile without optimization.
I can reproduce the problem. Now to reduce it to something managable.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30672
--- Comment #3 from kargl at gcc dot gnu dot org 2007-02-01 21:44 ---
Luis,
You can email me the file at [EMAIL PROTECTED]
I'll extract a testcase if the failure occurs on my systems.
--
kargl at gcc dot gnu dot org changed:
What|Removed |Added
--
--- Comment #2 from lgcota at gmail dot com 2007-02-01 20:54 ---
I could attach the 'dynamic.f' file if you tell me how (or is it just to
cut-and-paste it?). The file is NOT open source but is free for academic use.
It DOES use modules.
--
lgcota at gmail dot com changed:
--- Comment #1 from pinskia at gcc dot gnu dot org 2007-02-01 20:49 ---
(In reply to comment #0)
> Please I don't want to annoy you but the instructions to file a bug are really
> hard to follow and lengthy. I haven't been able to produce the "*.i* file, but
> just the ".s" one. Please m
