[Bug fortran/20363] interface body has incorrect scope

[paulthomas2 at wanadoo dot fr]

------- Additional Comments From paulthomas2 at wanadoo dot fr  2005-03-07 18:40 -------
(In reply to comment #0)
> Sorry about that I was adding Michael Metcalf to the cc and it, well, went.

$ cat snafu.f90
module snafu
  interface foo
    subroutine really_snafu (foo)        
      integer, intent (inout)  :: foo
    end subroutine really_snafu
  end interface foo
end module snafu
PaulThomas@Paul /cygdrive/d/gfortran
$ d:/irun/bin/gfortran  -c snafu.f90
 In file snafu.f90:4

      integer, intent (inout)  :: foo
                                    1
Error: Symbol 'foo' at (1) cannot have a type

This is incorrect because the interface body is a new separate scope(thanks 
Michael).


-- 


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