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

decl.c (gfc_match_derived_decl): Dummy argument cannot be a derived type. 

2019-06-15  Steven G. Kargl  <kargl@gcc.gnu.org>

	* decl.c (gfc_match_derived_decl): Dummy argument cannot be a derived
	 type.

2019-06-15  Steven G. Kargl  <kargl@gcc.gnu.org>

	* gfortran.dg/dummy_derived_typed.f90: New test.

From-SVN: r272333
This commit is contained in:
Steven G. Kargl 2019-06-15 22:10:54 +00:00
parent 98e5be211e
commit e00e195414
4 changed files with 21 additions and 0 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 @@
2019-06-15 Steven G. Kargl <kargl@gcc.gnu.org>
* decl.c (gfc_match_derived_decl): Dummy argument cannot be a derived
type.
2019-06-14 Steven G. Kargl <kargl@gcc.gnu.org>
* arith.c (arith_power): Rework overflow of an integer to an integer

7
gcc/fortran/decl.c
View File

@ -10193,6 +10193,13 @@ gfc_match_derived_decl (void)
&& !gfc_add_function (&gensym->attr, gensym->name, NULL))
return MATCH_ERROR;
if (gensym->attr.dummy)
{
gfc_error ("Dummy argument %qs at %L cannot be a derived type at %C",
name, &gensym->declared_at);
return MATCH_ERROR;
}
sym = gfc_find_dt_in_generic (gensym);
if (sym && (sym->components != NULL || sym->attr.zero_comp))

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2019-06-15 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/dummy_derived_typed.f90: New test.
2019-06-15 Jan Hubicka <hubicka@ucw.cz>
* gcc.dg/tree-ssa/alias-access-path-2.c: New testcase.

5
gcc/testsuite/gfortran.dg/dummy_derived_typed.f90 Normal file
View File

@ -0,0 +1,5 @@
! { dg-do compile }
subroutine s(t) ! { dg-error "Dummy argument" }
type t ! { dg-error "cannot be a derived" }
end type ! { dg-error "Expecting END SUBROUTINE" }
end