-2007-06-29 Dave Brolley <brolley@redhat.com>
+2007-07-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/32545
+ * gfortran.dg/fmt_error.f90: New test.
+
+2007-07-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/32612
+ * gfortran.dg/interface_13.f90: New test.
+
+2007-07-03 Dave Brolley <brolley@redhat.com>
PR c++/31743
* g++.dg/init/new20.C: New test.
--- /dev/null
+! { dg-do compile }
+! PR32612 gfortran - incorrectly flags error on interface module
+! Test case is that of the reporters
+ 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 ! This was rejected before
+ end interface
+ contains
+ subroutine my_sio_file_read_all_i4(serial, data, data_lengths, error)
+ 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
\ No newline at end of file