[Bug fortran/41177] Wrong base-object checks for type-bound procedures

["domob at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #5 from domob at gcc dot gnu dot org  2009-12-08 11:39 -------
Subject: Bug 41177

Author: domob
Date: Tue Dec  8 11:39:20 2009
New Revision: 155086

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=155086
Log:
2008-12-08  Daniel Kraft  <d@domob.eu>

        PR fortran/41177
        * gfortran.dg/typebound_proc_4.f03: Remove check for wrong error.
        * gfortran.dg/typebound_proc_13.f03: New test.

2008-12-08  Daniel Kraft  <d@domob.eu>

        PR fortran/41177
        * gfortran.h (struct symbol_attribute): New flag `class_pointer'.
        * symbol.c (gfc_build_class_symbol): Set the new flag.
        * resolve.c (update_compcall_arglist): Remove wrong check for
        non-scalar base-object.
        (check_typebound_baseobject): Add the correct version here as well
        as some 'not implemented' message check in the old case.
        (resolve_typebound_procedure): Check that the passed-object dummy
        argument is scalar, non-pointer and non-allocatable as it should be.

Added:
    trunk/gcc/testsuite/gfortran.dg/typebound_proc_13.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/symbol.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/typebound_call_4.f03


-- 


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