[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[pault at gcc dot gnu.org]

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

Paul Thomas  changed:

   What|Removed |Added

 Status|NEW |RESOLVED
 Resolution|--- |FIXED

--- Comment #9 from Paul Thomas  ---
Although it is a shame that I do not see a way to emit a warning that the dtio
proc is missing in the original problem, it does not ice, at least, and the
runtime problem is fixed.

Thanks for the report

Paul

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[pault at gcc dot gnu.org]

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

--- Comment #8 from Paul Thomas  ---
Author: pault
Date: Sat Mar 25 17:38:17 2017
New Revision: 246476

URL: https://gcc.gnu.org/viewcvs?rev=246476=gcc=rev
Log:
2017-03-25  Paul Thomas  

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  

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.

Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/decl.c
trunk/gcc/testsuite/ChangeLog
trunk/gcc/testsuite/gfortran.dg/dtio_23.f90

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[pault at gcc dot gnu.org]

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

--- Comment #7 from Paul Thomas  ---
(In reply to Dominique d'Humieres from comment #6)
> > I can fix this and prevent the ICE of PR79832 ...
> 
> Is this the right PR?

Well caught! PR79382.

Paul

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[dominiq at lps dot ens.fr]

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

--- Comment #6 from Dominique d'Humieres  ---
> I can fix this and prevent the ICE of PR79832 ...

Is this the right PR?

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[pault at gcc dot gnu.org]

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

Paul Thomas  changed:

   What|Removed |Added

   Assignee|unassigned at gcc dot gnu.org  |pault at gcc dot gnu.org

--- Comment #5 from Paul Thomas  ---
This, of course, is mine.

I can fix this and prevent the ICE of PR79832 but I see no way at the moment to
retain the error message of the latter.

Cheers

Paul

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[dominiq at lps dot ens.fr]

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

--- Comment #4 from Dominique d'Humieres  ---
> My bisection shows r245596 as the start of the regression, r245764
> as well as r245768 fails, not passes.

You are right: testing the original code I found the range r245564 (compiles)
r245629 (error). Actually I tested r245767 with the variant which compiles.

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[jakub at gcc dot gnu.org]

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

Jakub Jelinek  changed:

   What|Removed |Added

 CC||jakub at gcc dot gnu.org

--- Comment #3 from Jakub Jelinek  ---
My bisection shows r245596 as the start of the regression, r245764 as well as
r245768 fails, not passes.

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[rguenth at gcc dot gnu.org]

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

Richard Biener  changed:

   What|Removed |Added

   Target Milestone|--- |7.0

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[dominiq at lps dot ens.fr]

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

--- Comment #2 from Dominique d'Humieres  ---
> Confirmed. This a regression which appeared between revisions r245767
> (2017-02-28, compiles) and r246000 (2017-03-09, error),
> likely r245596 (pr79382).
 ^^^obviously wrong!-(

I did not find any obvious candidate in the range.

[Bug fortran/80156] [7 Regression] Generic DTIO interface reported missing if public statement preceeds the interface block

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres  changed:

   What|Removed |Added

   Priority|P3  |P4
 Status|UNCONFIRMED |NEW
   Last reconfirmed||2017-03-22
 CC||jvdelisle at gcc dot gnu.org,
   ||pault at gcc dot gnu.org
Summary|Generic DTIO interface  |[7 Regression] Generic DTIO
   |reported missing if public  |interface reported missing
   |statement preceeds the  |if public statement
   |interface block |preceeds the interface
   ||block
 Ever confirmed|0   |1

--- Comment #1 from Dominique d'Humieres  ---
Confirmed. This a regression which appeared between revisions r245767
(2017-02-28, compiles) and r246000 (2017-03-09, error), likely r245596
(pr79382).