public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/45900] New: [OOP] Polymorphic method not called
@ 2010-10-05 20:44 ortp21 at gmail dot com
  2010-10-05 21:24 ` [Bug fortran/45900] [OOP] Static TBP resolved incorrectly janus at gcc dot gnu.org
                   ` (6 more replies)
  0 siblings, 7 replies; 8+ messages in thread
From: ortp21 at gmail dot com @ 2010-10-05 20:44 UTC (permalink / raw)
  To: gcc-bugs

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45900

           Summary: [OOP] Polymorphic method not called
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: ortp21@gmail.com


The following example code provides an incorrect result using gfortran 4.6.0
20100925. I believe the code is valid and I have tested the same code with the
Intel Fortran compiler (ifort) 11.1 on Linux and the results returned are
correct. See the below example:

types.f90
---------------------------------------------------------
module A
implicit none
    type :: aType
    contains
        procedure :: callback
    end type aType
    contains
        subroutine callback( callback_ )
            implicit none
            class(aType) :: callback_

            print *, "Error: aType method called."
        end subroutine callback

        subroutine solver( callback_ )
            implicit none
            class(aType) :: callback_

            call callback_%callback()
        end subroutine solver
end module A

module B
use A, only: aType
implicit none
    type, extends(aType) :: bType
        integer :: i
    contains
        procedure :: callback
    end type bType
    contains
        subroutine callback( callback_ )
            implicit none
            class(bType) :: callback_

            print *, "Made it."
        end subroutine callback
end module B

program main
use A
use B
implicit none
    type(bType) :: bTypeInstance
    integer :: iflag

    bTypeInstance%i = 4

    call bTypeInstance%callback()
    call solver( bTypeInstance )
end program main
---------------------------------------------------------

The result produced running this code are found to be:
$ gfortran -o t types.f90
$ ./t
 Error: aType method called.
 Made it.

While ifort correctly produces the result:
 Made it.
 Made it.

A workaround is to do change "use A" in the main to:

use A, only: solver


Using built-in specs.
COLLECT_GCC=gfortran
Target: x86_64-apple-darwin10.4.0
Configured with: ../gcc-4.6-20100925/configure --prefix=~$HOME/gcc-trunk
--enable-languages=fortran --enable-checking=release --disable-bootstrap
Thread model: posix
gcc version 4.6.0 20100925 (experimental) (GCC)


^ permalink raw reply	[flat|nested] 8+ messages in thread
end of thread, other threads:[~2013-01-09 14:33 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-10-05 20:44 [Bug fortran/45900] New: [OOP] Polymorphic method not called ortp21 at gmail dot com
2010-10-05 21:24 ` [Bug fortran/45900] [OOP] Static TBP resolved incorrectly janus at gcc dot gnu.org
2010-10-05 22:02 ` janus at gcc dot gnu.org
2010-10-05 22:13 ` ortp21 at gmail dot com
2013-01-06 15:50 ` mikael at gcc dot gnu.org
2013-01-08 19:43 ` mikael at gcc dot gnu.org
2013-01-08 20:02 ` mikael at gcc dot gnu.org
2013-01-09 14:33 ` mikael at gcc dot gnu.org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).