https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71544

--- Comment #14 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Sat Mar  9 19:21:24 2019
New Revision: 269532

URL: https://gcc.gnu.org/viewcvs?rev=269532&root=gcc&view=rev
Log:
2019-03-09  Thomas Koenig  <tkoe...@gcc.gnu.org>

        PR fortran/71544
        * trans-types.c (gfc_typenode_for_spec) Set ts->is_c_interop of
        C_PTR and C_FUNPTR.
        (create_fn_spec): Mark argument as escaping if ts->is_c_interop is set.

2019-03-09  Thomas Koenig  <tkoe...@gcc.gnu.org>

        PR fortran/71544
        * gfortran.dg/c_ptr_tests_19.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/c_ptr_tests_19.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-types.c
    trunk/gcc/testsuite/ChangeLog

Reply via email to