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