re PR fortran/32545 (Give an (compile time) error not a warning for wrong edit format statements)

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.

From-SVN: r126296

gcc/testsuite/ChangeLog

-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.

gcc/testsuite/gfortran.dg/fmt_error.f90

+! { dg-do compile }
+! PR32545 Give compile error not warning for wrong edit format statements.
+read (5,'(i0)') i ! { dg-error "Error: Positive width required in format" }
+end

gcc/testsuite/gfortran.dg/interface_13.f90

+! { 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