gfortran now incorrectly flags and error on this reduced module -
[dranta:~/tests/gfortran-D] dir% g95 -c files.f90
[dranta:~/tests/gfortran-D] dir% f90 -c files.f90
[dranta:~/tests/gfortran-D] dir% gfortran -c files.f90
files.f90:30.40:
subroutine my_sio_file_read_common(data_lengths, error, &
1
files.f90:8.39:
interface my_sio_file_read_common
2
Error: Name 'my_sio_file_read_common' at (1) is already defined as a generic
interface at (2)
[dranta:~/tests/gfortran-D] dir% cat files.f90
module files_module
implicit none
integer, parameter :: REAL8 = SELECTED_REAL_KIND(12)
save
private
interface my_sio_file_read_common
module procedure my_sio_file_read_common
end interface
contains
subroutine my_sio_file_read_all_i4(serial, data, data_lengths, error)
! ----- purpose
! ----- calling arguments
logical, intent(in) :: serial
integer, intent(out) :: data(*)
integer, intent(in) :: data_lengths(0:*)
integer, intent(out) :: error
call my_sio_file_read_common(data_lengths, error, data_i4 = data)
end subroutine my_sio_file_read_all_i4
subroutine my_sio_file_read_common(data_lengths, error, &
data_i4, &
data_r8)
integer, intent(in) :: data_lengths(0:*)
integer, intent(out) :: error
integer, intent(out), optional :: data_i4(*)
real(REAL8), intent(out), optional :: data_r8(*)
error=0
data_i4(1)=0
data_r8(1)=0
end subroutine my_sio_file_read_common
end module files_module
[dranta:~/tests/gfortran-D] dir% gfortran --v
Using built-in specs.
Target: powerpc-apple-darwin8.10.0
Configured with: ../gcc/configure --disable-multilib
--prefix=/usr/local/gfortran --enable-languages=c,fortran
Thread model: posix
gcc version 4.3.0 20070702 (experimental)
[dranta:~/tests/gfortran-D] dir%
--
Summary: gfortran - incorrectly flags error on interface module
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: dir at lanl dot gov
GCC host triplet: Darwin 8.9.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32612
