http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45836
Summary: Fortran 2003 - Type Bound Procedure Error - Type Mismatch Product: gcc Version: 4.6.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassig...@gcc.gnu.org ReportedBy: ort...@gmail.com The following error is produced by the example typeboundprocedure.f95, pasted below: Error ---------------------------------------------- typeboundprocedure.f95:46.12: print *, b_type_instance%sizeReturn() 1 Error: Type mismatch in argument 'a_type_' at (1); passed TYPE(b_type) to CLASS(a_type) ---------------------------------------------- I have tested the same example using the Intel Fortran Compiler 11.1 on Linux and it compiles without error. Compiled using: gfortran -c typeboundprocedure.f95 typeboundprocedure.f95 ---------------------------------------------- module A implicit none type :: a_type private integer :: size = 1 contains procedure :: sizeReturn end type a_type contains function sizeReturn( a_type_ ) implicit none integer :: sizeReturn class(a_type) :: a_type_ sizeReturn = a_type_%size end function sizeReturn end module A module B implicit none type :: b_type private integer :: size = 2 contains procedure :: sizeReturn end type b_type contains function sizeReturn( b_type_ ) implicit none integer :: sizeReturn class(b_type) :: b_type_ sizeReturn = b_type_%size end function sizeReturn end module B program main use A use B implicit none type(a_type) :: a_type_instance type(b_type) :: b_type_instance print *, a_type_instance%sizeReturn() print *, b_type_instance%sizeReturn() end program main ---------------------------------------------- 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)