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

re PR fortran/92897 ([Coarray] ICE in gfc_set_array_spec, at fortran/array.c:864)

Browse Source 
2019-12-11 Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/92897
	* array.c (gfc_set_array_spec):  Remove invalid assert() triggered
	by invalid Fortran code.
 
2019-12-11 Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/92897
	* gfortran.dg/pr92897.f90: New test.

From-SVN: r279247
This commit is contained in:
Steven G. Kargl 2019-12-11 19:28:57 +00:00
parent a9046e9853
commit c7f5b4eddd
4 changed files with 19 additions and 4 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 @@
2019-12-11 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/92897
* array.c (gfc_set_array_spec): Remove invalid assert() triggered
by invalid Fortran code.
2019-12-10 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/91643

4
gcc/fortran/array.c
View File

@ -859,10 +859,6 @@ gfc_set_array_spec (gfc_symbol *sym, gfc_array_spec *as, locus *error_loc)
if (as->corank)
{
/* The "sym" has no corank (checked via gfc_add_codimension). Thus
the codimension is simply added. */
gcc_assert (as->rank == 0 && sym->as->corank == 0);
sym->as->cotype = as->cotype;
sym->as->corank = as->corank;
/* Check F2018:C822. */

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2019-12-11 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/92897
* gfortran.dg/pr92897.f90: New test.
2019-12-11 Jozef Lawrynowicz <jozef.l@mittosystems.com>
* lib/gcc-dg.exp: Add dg-prune messages for when exception handling is

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

@ -0,0 +1,8 @@
! { dg-do compile }
! { dg-options "-fcoarray=single" }
! Test contributed by Gerhard Steinmetz
type(t) function f() ! { dg-error "has not been declared" }
dimension :: t(1,2,1,2,1,2,1,2)
codimension :: t[1,2,1,2,1,2,1,*] ! { dg-error "rank \\+ corank of" }
end
! { dg-prune-output "which has not been defined" }