This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/41829] [OOP] Runtime error with dynamic dispatching
- From: "sfilippone at uniroma2 dot it" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 26 Oct 2009 12:38:40 -0000
- Subject: [Bug fortran/41829] [OOP] Runtime error with dynamic dispatching
- References: <bug-41829-9410@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #1 from sfilippone at uniroma2 dot it 2009-10-26 12:38 -------
(In reply to comment #0)
> Hello,
>
Sorry, hit the keyboard too soon.
With trunk at rev. 153550 the attached code compiles cleanly but does not work:
------------------------------------------------------------------------------
[sfilippo@donald bug10]$ gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/local/gnu45/libexec/gcc/x86_64-unknown-linux-gnu/4.5.0/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../gcc/configure --prefix=/usr/local/gnu45
--enable-languages=c,c++,fortran
Thread model: posix
gcc version 4.5.0 20091026 (experimental) (GCC)
[sfilippo@donald bug10]$ gfortran -o td10 test-der10.f03
[sfilippo@donald bug10]$ ./td10
FOO%DOIT base version
Getit value : 1
At line 69 of file test-der10.f03
Fortran runtime error: internal error: bad vindex in dynamic dispatch
------------------------------------------------------------------------
With the NAG compiler I get the expected result:
------------------------------------------------
FOO%DOIT base version
Getit value : 1
FOO2%DOIT derived version
Getit value : 3
-----------------------------------------------
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41829