procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/47195 (New Fortran test failures)

Browse source 
2011-01-06  Daniel Franke  <franke.daniel@gmail.com>

	PR fortran/47195
	* gfortran.dg/interface_33.f90: Fixed dg-error declarations.
	* gfortran.dg/defined_operators_1.f90: Split the subroutine
	from the interface of functions to not hide the errors that
	shall be tested.

From-SVN: r168554
This commit is contained in:
Daniel Franke 2011-01-06 16:42:53 -05:00 • committed by Daniel Franke
parent e1a973d838
commit 3728af1405
3 changed files with 22 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,11 @@
2011-01-06 Daniel Franke <franke.daniel@gmail.com>
PR fortran/47195
* gfortran.dg/interface_33.f90: Fixed dg-error declarations.
* gfortran.dg/defined_operators_1.f90: Split the subroutine
from the interface of functions to not hide the errors that
shall be tested.
2011-01-06 Jan Hubicka <jh@suse.cz>
* testsuite/gcc.dg/lto/pr47188_0.c: New testcase.

11
gcc/testsuite/gfortran.dg/defined_operators_1.f90
View file

@ -17,10 +17,21 @@ module mymod
character(*) :: foo_chr
character(*), intent(in) :: chr
end function foo_chr
end interface
!
! PR fortran/33117
! PR fortran/46478
! Mixing FUNCTIONs and SUBROUTINEs in an INTERFACE hides the
! errors that should be tested here. Hence split out subroutine
! to test separately.
!
interface operator (.bar.)
subroutine bad_foo (chr) ! { dg-error "must be a FUNCTION" }
character(*), intent(in) :: chr
end subroutine bad_foo
end interface
contains
function foo_0 () ! { dg-error "must have at least one argument" }
integer :: foo_1

6
gcc/testsuite/gfortran.dg/interface_33.f90
View file

@ -1,4 +1,4 @@
! { dg-do "compile" }
! { dg-do compile }
!
! PR fortran/33117, PR fortran/46478
! Procedures of a generic interface must be either
@ -10,7 +10,7 @@
!
module m1
interface gen
subroutine sub() ! dg-error { "all SUBROUTINEs or all FUNCTIONs" }
subroutine sub() ! { dg-error "all SUBROUTINEs or all FUNCTIONs" }
end subroutine sub
function bar()
real :: bar
@ -27,7 +27,7 @@ MODULE m2
MODULE PROCEDURE subr_name
END INTERFACE
CONTAINS
LOGICAL FUNCTION func_name() ! dg-error { "all SUBROUTINEs or all FUNCTIONs" }
LOGICAL FUNCTION func_name() ! { dg-error "all SUBROUTINEs or all FUNCTIONs" }
END FUNCTION
SUBROUTINE subr_name()
END SUBROUTINE