OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Jerry DeLisle 2007-07-04 01:13:47 +00:00
parent 2305fa3184
commit cc0ca51203
3 changed files with 46 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/testsuite/ChangeLog
View File

@ -1,4 +1,14 @@
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.

4
gcc/testsuite/gfortran.dg/fmt_error.f90 Normal file
View File

@ -0,0 +1,4 @@
! { 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

31
gcc/testsuite/gfortran.dg/interface_13.f90 Normal file
View File

@ -0,0 +1,31 @@
! { 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