------- Comment #8 from burnus at gcc dot gnu dot org  2007-02-28 18:17 -------
Subject: Bug 30887

Author: burnus
Date: Wed Feb 28 18:17:34 2007
New Revision: 122409

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=122409
Log:
2007-02-28  Tobias Burnus  <[EMAIL PROTECTED]>
            Paul Thomas  <[EMAIL PROTECTED]>

        PR fortran/30888
        PR fortran/30887
        * resolve.c (resolve_actual_arglist): Allow by-value
        arguments and non-default-kind for %VAL().
        * trans-expr.c (conv_arglist_function): Allow
        non-default-kind for %VAL().

testsuite/
2007-02-28  Tobias Burnus  <[EMAIL PROTECTED]>
            Paul Thomas  <[EMAIL PROTECTED]>

        PR fortran/30888
        PR fortran/30887
        * c_by_val_1.f: Test %VAL() with non-default kind.
        * c_by_val.c: Ditto.
        * c_by_val_4.f: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/c_by_val_4.f
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/c_by_val.c
    trunk/gcc/testsuite/gfortran.dg/c_by_val_1.f


-- 


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

Reply via email to