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

[multiple changes] 

2017-03-18  Nicolas Koenig  <koenigni@student.ethz.ch> 
		PR fortran/69498
		* symbol.c (gfc_delete_symtree): If there is a period in the name, ignore
		everything before it.

2017-03-18  Nicolas Koenig  <koenigni@student.ethz.ch>
		PR fortran/69498
		* gfortran.dg/submodule_unexp.f90: New test.

From-SVN: r246679
This commit is contained in:
Nicolas Koenig 2017-04-04 15:41:41 +02:00 committed by Nicolas Koenig
parent d90175a4bb
commit 15f12d9677
4 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2017-03-18 Nicolas Koenig <koenigni@student.ethz.ch>
PR fortran/69498
* symbol.c (gfc_delete_symtree): If there is a period in the name, ignore
everything before it.
2017-03-28 Janus Weil <janus@gcc.gnu.org>
PR fortran/78661

14
gcc/fortran/symbol.c
View File

@ -2782,10 +2782,20 @@ void
gfc_delete_symtree (gfc_symtree **root, const char *name)
{
gfc_symtree st, *st0;
const char *p;
st0 = gfc_find_symtree (*root, name);
/* Submodules are marked as mod.submod. When freeing a submodule
symbol, the symtree only has "submod", so adjust that here. */
st.name = gfc_get_string ("%s", name);
p = strrchr(name, '.');
if (p)
p++;
else
p = name;
st0 = gfc_find_symtree (*root, p);
st.name = gfc_get_string ("%s", p);
gfc_delete_bbt (root, &st, compare_symtree);
free (st0);

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2017-04-04 Nicolas Koenig <koenigni@student.ethz.ch>
PR fortran/69498
* gfortran.dg/submodule_unexp.f90: New test.
2017-04-04 Jakub Jelinek <jakub@redhat.com>
PR target/80286

8
gcc/testsuite/gfortran.dg/submodule_unexp.f90 Normal file
View File

@ -0,0 +1,8 @@
! { dg-do compile }
! PR fortran/69498
! This used to ICE
program p
type t
submodule (m) sm ! { dg-error "Unexpected SUBMODULE statement at" }
end type
end