diff options
author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-05-18 23:09:49 +0000 |
---|---|---|
committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-05-18 23:09:49 +0000 |
commit | 377e37c15987acaaddd0e51282adb40d49e91758 (patch) | |
tree | 8d735f2aa829147bd028d38d5423f35be74055ba /gcc | |
parent | 73641c881f4bfb156aca31fe78976a7236722e38 (diff) | |
download | gcc-377e37c15987acaaddd0e51282adb40d49e91758.zip gcc-377e37c15987acaaddd0e51282adb40d49e91758.tar.gz gcc-377e37c15987acaaddd0e51282adb40d49e91758.tar.bz2 |
re PR fortran/66057 (ICE for incomplete generic statement (gfc_match_generic))
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66057
* decl.c(gfc_match_generic): Detected a malformed GENERIC statement.
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66057
* gfortran.dg/generic_29.f90: New tests.
From-SVN: r223325
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/fortran/decl.c | 5 | ||||
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/generic_29.f90 | 11 |
4 files changed, 26 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f54de3c..0650883 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/66057 + * decl.c(gfc_match_generic): Detected a malformed GENERIC statement. + +2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/66043 * gfortran.dg/storage_size_6.f90: New tests. diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 93a4554..086a20e 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -8511,6 +8511,11 @@ gfc_match_generic (void) gfc_op2string (op)); break; + case INTERFACE_NAMELESS: + gfc_error ("Malformed GENERIC statement at %C"); + goto error; + break; + default: gcc_unreachable (); } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fa8dc0a..5d4dce2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/66057 + * gfortran.dg/generic_29.f90: New tests. + +2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/66043 * gfortran.dg/storage_size_6.f90: New tests. diff --git a/gcc/testsuite/gfortran.dg/generic_29.f90 b/gcc/testsuite/gfortran.dg/generic_29.f90 new file mode 100644 index 0000000..6f95b56 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/generic_29.f90 @@ -0,0 +1,11 @@ +! { dg-do compile} +! PR fortran/66057 +! +! Original code from Gerhard Steinmetz +! <gerhard dot steinmetz dot fortran at t-online dot de> +program p + type t + contains + generic :: ! { dg-error "Malformed GENERIC" } + end type +end |