diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2013-04-13 12:52:31 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2013-04-13 12:52:31 +0200 |
| commit | 9c9c61994c8bbf55135b41658581f6a9e2b96f60 (patch) | |
| tree | 209d78ac54b450e0e1cbb0bdd0fa90514a712e97 /gcc | |
| parent | 1f397f45b3db18687d9445e6e3895f34f09daa38 (diff) | |
| download | gcc-9c9c61994c8bbf55135b41658581f6a9e2b96f60.zip gcc-9c9c61994c8bbf55135b41658581f6a9e2b96f60.tar.gz gcc-9c9c61994c8bbf55135b41658581f6a9e2b96f60.tar.bz2 | |
re PR fortran/55959 ([OOP] ICE in in gfc_simplify_expr, at fortran/expr.c:1920)
2013-04-13 Janus Weil <janus@gcc.gnu.org>
PR fortran/55959
* expr.c (gfc_simplify_expr): Branch is not unreachable.
2013-04-13 Janus Weil <janus@gcc.gnu.org>
PR fortran/55959
* gfortran.dg/typebound_proc_29.f03: New.
From-SVN: r197943
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/expr.c | 1 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/typebound_proc_29.f90 | 26 |
4 files changed, 36 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ace16ad..8f88b0b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2013-04-13 Janus Weil <janus@gcc.gnu.org> + + PR fortran/55959 + * expr.c (gfc_simplify_expr): Branch is not unreachable. + 2013-04-12 Janus Weil <janus@gcc.gnu.org> PR fortran/56266 diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 829b087..e4bcc79 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1916,7 +1916,6 @@ gfc_simplify_expr (gfc_expr *p, int type) case EXPR_COMPCALL: case EXPR_PPC: - gcc_unreachable (); break; } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c99fee8..28b9b62 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-04-13 Janus Weil <janus@gcc.gnu.org> + + PR fortran/55959 + * gfortran.dg/typebound_proc_29.f03: New. + 2013-04-12 Janus Weil <janus@gcc.gnu.org> PR fortran/56266 diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_29.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_29.f90 new file mode 100644 index 0000000..2650d14 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/typebound_proc_29.f90 @@ -0,0 +1,26 @@ +! { dg-do compile } +! +! PR 55959: [OOP] ICE in in gfc_simplify_expr, at fortran/expr.c:1920 +! +! Contributed by Tilo Schwarz <tilo@tilo-schwarz.de> + +module pdfs + type :: pdf + contains + procedure, nopass :: getx + end type + +contains + + real function getx() + end function + +end module + +program abstract + use pdfs + type(pdf) pp + print pp%getx() ! { dg-error "must be of type default-kind CHARACTER or of INTEGER" } +end program + +! { dg-final { cleanup-modules "pdfs" } } |