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

re PR fortran/58182 (ICE with global binding name used as a FUNCTION)

Browse source 
2014-01-08  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/58182
	* resolve.c (gfc_verify_binding_labels): Modify order of checks.


2014-01-08  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/58182
	* gfortran.dg/binding_label_tests_26a.f90: New.
	* gfortran.dg/binding_label_tests_26b.f90: New.

From-SVN: r206429
This commit is contained in:
Janus Weil 2014-01-08 16:25:22 +01:00
parent 06636b3267
commit 76d3d479f3
5 changed files with 48 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -1,3 +1,8 @@
2014-01-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/58182
* resolve.c (gfc_verify_binding_labels): Modify order of checks.
2014-01-06 Janus Weil <janus@gcc.gnu.org>
PR fortran/59589

6
gcc/fortran/resolve.c
View file

@ -10200,11 +10200,11 @@ gfc_verify_binding_labels (gfc_symbol *sym)
&& ((gsym->type != GSYM_SUBROUTINE && gsym->type != GSYM_FUNCTION)
|| (gsym->defined && sym->attr.if_source != IFSRC_IFBODY))
&& sym != gsym->ns->proc_name
&& (strcmp (gsym->sym_name, sym->name) != 0
|| module != gsym->mod_name
&& (module != gsym->mod_name
|| strcmp (gsym->sym_name, sym->name) != 0
|| (module && strcmp (module, gsym->mod_name) != 0)))
{
/* Print an error if the procdure is defined multiple times; we have to
/* Print an error if the procedure is defined multiple times; we have to
exclude references to the same procedure via module association or
multiple checks for the same procedure. */
gfc_error ("Procedure %s with binding label %s at %L uses the same "

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2014-01-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/58182
* gfortran.dg/binding_label_tests_26a.f90: New.
* gfortran.dg/binding_label_tests_26b.f90: New.
2014-01-08 Marek Polacek <polacek@redhat.com>
PR sanitizer/59667

20
gcc/testsuite/gfortran.dg/binding_label_tests_26a.f90 Normal file
View file

@ -0,0 +1,20 @@
! { dg-do compile }
!
! PR 58182: [4.9 Regression] ICE with global binding name used as a FUNCTION
!
! Contributed by Andrew Bensons <abensonca@gmail.com>
!
! This file must be compiled BEFORE binding_label_tests_26b.f90, which it
! should be because dejagnu will sort the files.
module fg
contains
function fffi(f)
interface
function f() bind(c)
end function
end interface
end function
end module
! { dg-final { keep-modules "" } }

14
gcc/testsuite/gfortran.dg/binding_label_tests_26b.f90 Normal file
View file

@ -0,0 +1,14 @@
! { dg-do compile }
!
! PR 58182: [4.9 Regression] ICE with global binding name used as a FUNCTION
!
! Contributed by Andrew Bensons <abensonca@gmail.com>
!
! This file must be compiled AFTER binding_label_tests_26a.f90, which it
! should be because dejagnu will sort the files.
module f ! { dg-error "uses the same global identifier" }
use fg ! { dg-error "uses the same global identifier" }
end module
! { dg-final { cleanup-modules "fg f" } }