[Patch, fortran] PR80156 - [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[Paul Richard Thomas <paul dot richard dot thomas at gmail dot com>]

Dear All,

This regression arose from my patch for PR79382. I have removed the
compile time error but have prevented the ICE by ensuring that the
dtio generic symbol has flavor FL_PROCEDURE. dtio_23.f90 has been
modified to incorporate the test for this PR and not to check for the
now absent error message. At the moment, I do not see how to recover
the error. However, with this patch applied, no incorrect code is
generated and the spurious error is suppressed.

Bootstraps and regtests on FC23/x86_64 - OK for trunk?

Paul

2017-03-25  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/80156
    PR fortran/79382
    * decl.c (access_attr_decl): Remove the error for an absent
    generic DTIO interface and ensure that symbol has the flavor
    FL_PROCEDURE.

2017-03-25  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/80156
    PR fortran/79382
    * gfortran.dg/dtio_23.f90 : Remove the dg-error and add the
    testcase for PR80156. Add a main programme that tests that
    the typebound generic is accessible.


-- 
"If you can't explain it simply, you don't understand it well enough"
- Albert Einstein

Attachment: submit.diff
Description: Text document