[Bug fortran/24783] New: Implicit none in module overwrite explicit in procedure

[Patrick dot Begou at hmg dot inpg dot fr]

The small program given do not compile with gfortran: Compiler complains:

"Error: Symbol 'ny' at (1) has no IMPLICIT type"

- Removing "IMPLICIT NONE" for the module allows compilation.
or
- removing the "DIMENSION vec(ny)" allows compilation.
The problem seems to be related to implicit ny variable used as the dimension
argument of the vector.

This program is the shorter I can write to reproduce the bug.

      MODULE mod_avanti_e

      IMPLICIT NONE

      CONTAINS

c********************************************************
c
      SUBROUTINE eval(vec, ny)
c
c********************************************************
c
      IMPLICIT REAL (a-h,o-z)
      IMPLICIT INTEGER (i-n)
      DIMENSION vec(ny)
c
      RETURN
      END SUBROUTINE eval

      END MODULE mod_avanti_e


Regards,

Patrick


-- 
           Summary: Implicit none in module overwrite explicit in procedure
           Product: gcc
           Version: 4.0.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Patrick dot Begou at hmg dot inpg dot fr
  GCC host triplet: Linux  2.6.13-1.1532_FC4  i686 athlon i386 GNU/Linux


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