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

re PR fortran/68055 (ICE on using unsupported kinds in program without program statement)

Browse Source 
2015-10-24  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/68055
	* decl.c (gfc_match_decl_type_spec): Check for valid kind in old-style
	declarations.

2015-10-24  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/68055
	* gfortran.dg/pr68055.f90: New case.

From-SVN: r229288
This commit is contained in:
Steven G. Kargl 2015-10-24 17:09:35 +00:00
parent 8d48826b99
commit 4381322d6e
4 changed files with 39 additions and 1 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 @@
2015-10-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/68055
* decl.c (gfc_match_decl_type_spec): Check for valid kind in old-style
declarations.
2015-10-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/67805

6
gcc/fortran/decl.c
View File

@ -3021,7 +3021,11 @@ get_kind:
m = gfc_match_kind_spec (ts, false);
if (m == MATCH_NO && ts->type != BT_CHARACTER)
m = gfc_match_old_kind_spec (ts);
{
m = gfc_match_old_kind_spec (ts);
if (gfc_validate_kind (ts->type, ts->kind, true) == -1)
return MATCH_ERROR;
}
if (matched_type && gfc_match_char (')') != MATCH_YES)
return MATCH_ERROR;

15
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,18 @@
2015-10-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/68055
* gfortran.dg/pr68055.f90: New case.
2015-10-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/67805
* gfortran.dg/pr67805.f90: New testcase.
* gfortran.dg/array_constructor_26.f03: Update testcase.
* gfortran.dg/array_constructor_27.f03: Ditto.
* gfortran.dg/char_type_len_2.f90: Ditto.
* gfortran.dg/pr67802.f90: Ditto.
* gfortran.dg/used_before_typed_3.f90: Ditto.
2015-10-23 Jan Hubicka <hubicka@ucw.cz>
PR ipa/pr67600

13
gcc/testsuite/gfortran.dg/pr68055.f90 Normal file
View File

@ -0,0 +1,13 @@
! { dg-do compile }
! PR fortran/68055
! Original code contributed by Gerhard Steinmetz
! gerhard dot steinmetz dot fortran at t-online dot de
!
integer*3 c ! { dg-error "not supported at" }
real*9 x ! { dg-error "not supported at" }
logical*11 a ! { dg-error "not supported at" }
complex*42 z ! { dg-error "not supported at" }
c = 1
x = 1
call foo(a)
end