The following program is invalid:
------------------
module a
implicit none
contains
integer function bar()
bar = 42
end function
end module a
use a
implicit none
integer :: bar
end
------------------
gfortran -pedantic or gfortran -std=f95 gives the error:
Error: Symbol 'bar' at (1) already has basic type of INTEGER
which is correct but may not be that obvious. NAG f95 writes:
Error: x.f90, line 11: Redeclaration of symbol BAR from USEd module
and ifort:
fortcom: Error: x.f90, line 11: The attributes of this name conflict with those
made accessible by a USE statement. [BAR]
integer :: bar
-----------^
--
Summary: Better error message for redeclation of USEd symbols
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Keywords: diagnostic
Severity: enhancement
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: burnus at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31600
