mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 00:31:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fortran: ICE in gfc_code2string PR93792

Browse Source 
A BOZ constant can not appear as a component inialiser for a derived
type.

gcc/fortran/ChangeLog:

	PR93792
	* decl.c (variable_decl): If param and initializer check
	for BOZ, if found,  output an error, set m to MATCH_ERROR
	and goto cleanup.

gcc/testsuite/ChangeLog:

	PR93792
	* gfortran.dg/pr93792.f90:  New test.
This commit is contained in:
Steven G. Kargl 2020-03-05 11:41:14 +00:00 committed by Mark Eggleston
parent 43031fbdda
commit a2ec7c4aaf
4 changed files with 39 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2020-03-05 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/93792
* decl.c (variable_decl): If param and initializer check
for BOZ, if found, output an error, set m to MATCH_ERROR
and goto cleanup.
2020-03-02 Andrew Benson <abensonca@gmail.com>
PR fortran/93486

11
gcc/fortran/decl.c
View File

@ -2929,7 +2929,16 @@ variable_decl (int elem)
goto cleanup;
}
else if (param && initializer)
param->value = gfc_copy_expr (initializer);
{
if (initializer->ts.type == BT_BOZ)
{
gfc_error ("BOZ literal constant at %L cannot appear as an "
"initializer", &initializer->where);
m = MATCH_ERROR;
goto cleanup;
}
param->value = gfc_copy_expr (initializer);
}
}
/* Before adding a possible initilizer, do a simple check for compatibility

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2020-03-05 Mark Eggleston <mark.eggleston@codethink.com>
PR fortran/93792
* gfortran.dg/pr93792.f90: New test.
2020-03-05 Delia Burduv <delia.burduv@arm.com>
* gcc.target/arm/simd/bf16_ma_1.c: New test.

17
gcc/testsuite/gfortran.dg/pr93792.f90 Normal file
View File

@ -0,0 +1,17 @@
! { dg-do compile }
! Original test case by Gernhard Steinmetz.
module m
type t(n)
integer, len :: n = z'1'
end type
end
program p
use m
type(t(:)), allocatable :: z
end
! { dg-error "Parameterized type 't' does not have a component" " " { target *-*-* } 5 }
! { dg-error "BOZ literal constant at .1. cannot appear" " " { target *-*-* } 6 }
! { dg-error "Cannot open module file" " " { target *-*-* } 10 }
! { dg-excess-errors "compilation terminated" }