diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-05-24 22:31:11 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-05-24 22:31:11 +0000 |
| commit | 1072bff8143c56ae3de8d08d122f4960f9bdcdd2 (patch) | |
| tree | 6d40ed415ca32a5a9b98cc16b1e96f077dcb69c9 /gcc/testsuite | |
| parent | 8909fee2891ba084a2b8d317e864b3cf4c1e6b01 (diff) | |
| download | gcc-1072bff8143c56ae3de8d08d122f4960f9bdcdd2.zip gcc-1072bff8143c56ae3de8d08d122f4960f9bdcdd2.tar.gz gcc-1072bff8143c56ae3de8d08d122f4960f9bdcdd2.tar.bz2 | |
re PR fortran/85779 (ICE in gfc_typename, at fortran/misc.c:156)
2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/85779
* decl.c (gfc_match_derived_decl): Fix NULL point dereference.
2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/85779
* gfortran.dg/pr85779_1.f90: New test.
* gfortran.dg/pr85779_2.f90: Ditto.
* gfortran.dg/pr85779_3.f90: Ditto.
From-SVN: r260697
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr85779_1.f90 | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr85779_2.f90 | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr85779_3.f90 | 7 |
4 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 707db42..8273fca 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,12 @@ 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/85779 + * gfortran.dg/pr85779_1.f90: New test. + * gfortran.dg/pr85779_2.f90: Ditto. + * gfortran.dg/pr85779_3.f90: Ditto. + +2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/85895 * gfortran.dg/coarray_3.f90: Fix invalid testcase. diff --git a/gcc/testsuite/gfortran.dg/pr85779_1.f90 b/gcc/testsuite/gfortran.dg/pr85779_1.f90 new file mode 100644 index 0000000..186568f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr85779_1.f90 @@ -0,0 +1,6 @@ +! { dg-do compile } +! PR fortran/85779 +type(t) function f() ! { dg-error "is not accessible" } + type f ! { dg-error "already has a basic type" } + end type ! { dg-error "END FUNCTION statement" } +end diff --git a/gcc/testsuite/gfortran.dg/pr85779_2.f90 b/gcc/testsuite/gfortran.dg/pr85779_2.f90 new file mode 100644 index 0000000..4cc3c62 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr85779_2.f90 @@ -0,0 +1,7 @@ +! { dg-do compile } +! PR fortran/85779 +type(t) function f() result(z) ! { dg-error "is not accessible" } + type z ! { dg-error "already has a basic type" } + end type ! { dg-error "END FUNCTION statement" } +end + diff --git a/gcc/testsuite/gfortran.dg/pr85779_3.f90 b/gcc/testsuite/gfortran.dg/pr85779_3.f90 new file mode 100644 index 0000000..fba1133 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr85779_3.f90 @@ -0,0 +1,7 @@ +! { dg-do compile } +! PR fortran/85779 +class(t) function f() ! { dg-error "must be dummy, allocatable or pointer" } + type f ! { dg-error "already has a basic type" } + end type ! { dg-error "END FUNCTION statement" } +end + |