[Bug fortran/79553] Infinite gfortran loop on invalid code with procedures parameters

[dominiq at lps dot ens.fr]

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

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
With trunk (7.0, r244467) I get

pr79553.f90:7:30:

         subroutine procname(a)
                              1
Error: Symbol 'procname' at (1) already has an explicit interface
pr79553.f90:8:25:

             implicit none
                         1
Error: Unexpected IMPLICIT NONE statement in INTERFACE block at (1)
pr79553.f90:9:24:

             integer :: a
                        1
Error: Unexpected data declaration statement in INTERFACE block at (1)
pr79553.f90:10:11:

         end subroutine
           1
Error: Expecting END INTERFACE statement at (1)
pr79553.f90:15:32:

     subroutine use_procname(proc)
                                1
Error: Interface 'procname' at (1) is declared in a later PROCEDURE statement
pr79553.f90:7:27:

         subroutine procname(a)
                           1
Error: PROCEDURE 'procname' at (1) may not be used as its own interface
pr79553.f90:15:32:

     subroutine use_procname(proc)
                                1
Error: Interface 'procname' at (1) is declared in a later PROCEDURE statement

without infinite loop.

Is it enough to consider the problem as fixed? If not, what message do you
expect?