diff options
| author | Richard Guenther <rguenther@suse.de> | 2009-11-30 10:39:36 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2009-11-30 10:39:36 +0000 |
| commit | ffab1d071ca78b02490bb39ae784d1ad45f4eb04 (patch) | |
| tree | 70e5c4b5c8abb762105af6b9e0ae79b0bd32f9c8 /gcc/testsuite | |
| parent | c84b434f46aabff791f59a45ec74c8b9a3cf32f2 (diff) | |
| download | gcc-ffab1d071ca78b02490bb39ae784d1ad45f4eb04.zip gcc-ffab1d071ca78b02490bb39ae784d1ad45f4eb04.tar.gz gcc-ffab1d071ca78b02490bb39ae784d1ad45f4eb04.tar.bz2 | |
re PR middle-end/42119 (internal compiler error: in expand_expr_addr_expr_1, at expr.c:6862)
2009-11-30 Richard Guenther <rguenther@suse.de>
PR middle-end/42119
PR fortran/38530
* expr.c (expand_expr_addr_expr_1): Properly expand the initializer
of CONST_DECLs.
* gfortran.dg/pr42119.f90: New testcase.
From-SVN: r154778
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr42119.f90 | 24 |
2 files changed, 30 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f09f148..6d75d60 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-11-30 Richard Guenther <rguenther@suse.de> + + PR middle-end/42119 + PR fortran/38530 + * gfortran.dg/pr42119.f90: New testcase. + 2009-11-30 Dodji Seketeli <dodji@redhat.com> PR c++/42069 diff --git a/gcc/testsuite/gfortran.dg/pr42119.f90 b/gcc/testsuite/gfortran.dg/pr42119.f90 new file mode 100644 index 0000000..f848e9e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr42119.f90 @@ -0,0 +1,24 @@ +! { dg-do compile } + +module Test +use ISO_C_BINDING + +contains + +subroutine Callback(arg) bind(C) + integer(C_INT) :: arg +end subroutine Callback + +subroutine Check(proc) + type(C_FUNPTR) :: proc +end subroutine Check + +end module Test + + +program Main + use Test + type(C_FUNPTR) :: proc + + call Check(C_FUNLOC(Callback)) +end program Main |