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

re PR fortran/18923 (segfault after subroutine name confusion)

Browse source 
2007-06-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR testsuite/18923
	* gfortran.dg/invalid_contains_1.f90: New test.
	* gfortran.dg/invalid_contains_2.f90: New test.

From-SVN: r125353
This commit is contained in:
Jerry DeLisle 2007-06-06 01:21:29 +00:00
parent 766a8f6262
commit 518a0b7838
3 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2007-06-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR testsuite/18923
* gfortran.dg/invalid_contains_1.f90: New test.
* gfortran.dg/invalid_contains_2.f90: New test.
2007-06-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR testsuite/32057

8
gcc/testsuite/gfortran.dg/invalid_contains_1.f90 Normal file
View file

@ -0,0 +1,8 @@
! { dg-do compile }
! PR18923 segfault after subroutine name confusion.
module FOO
contains
subroutine FOO ! { dg-error "conflicts with PROCEDURE" }
character(len=selected_int_kind(0)) :: C ! { dg-error "data declaration statement" }
end subroutine ! { dg-error "Expecting END MODULE statement" }
end ! { dg-warning "CONTAINS statement without FUNCTION" }

9
gcc/testsuite/gfortran.dg/invalid_contains_2.f90 Normal file
View file

@ -0,0 +1,9 @@
! { dg-do compile }
! PR18923 segfault after subroutine name confusion.
program foo
contains
subroutine foo(i) ! { dg-error "conflicts with PROCEDURE" }
integer :: i ! { dg-error "data declaration statement" }
character(len=selected_int_kind(i)) :: c ! { dg-error "data declaration statement" }
end subroutine ! { dg-error "Expecting END PROGRAM statement" }
end program foo ! { dg-warning "CONTAINS statement without FUNCTION" }