[Bug fortran/20154] New: fortran: scoping of implicit none & interfaces

["anlauf at hep dot tu-darmstadt dot de" <gcc-bugzilla at gcc dot gnu dot org>]

Hi,

there is a problem with the scope of (at least) "implicit none"
in gfortran.  It falsely extends into interface definitions.
The following is a minimal legal example related to a discussion
I started on comp.lang.fortran today:

program gfcbug25
  implicit none
  interface
     subroutine foo (i)
     end subroutine foo
  end interface
end program gfcbug25

gfortran fails to compile this legal and correct code with
this error message:

% gfortran gfcbug25.f90
 In file gfcbug25.f90:4

     subroutine foo (i)
                     1
Error: Symbol 'i' at (1) has no IMPLICIT type
 In file gfcbug25.f90:4

     subroutine foo (i)
                     1
Error: Symbol 'i' at (1) has no IMPLICIT type


Note that "implicit none" must not extend into the interface,
thus the code is legal!

Cheers,
-ha

-- 
           Summary: fortran: scoping of implicit none & interfaces
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at hep dot tu-darmstadt dot de
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


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