diff options
author | Jakub Jelinek <jakub@redhat.com> | 2018-12-06 11:28:31 +0100 |
---|---|---|
committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2018-12-06 11:28:31 +0100 |
commit | a126d36172d336ee92f18b5c0fcf60a16690c2f0 (patch) | |
tree | 03fb22959a96145fd9a067fb30bfc92fe687b2df /gcc/testsuite/gfortran.fortran-torture | |
parent | 6a9025a01fbcf15c7a39b4c7af19cbdf7def8998 (diff) | |
download | gcc-a126d36172d336ee92f18b5c0fcf60a16690c2f0.zip gcc-a126d36172d336ee92f18b5c0fcf60a16690c2f0.tar.gz gcc-a126d36172d336ee92f18b5c0fcf60a16690c2f0.tar.bz2 |
re PR fortran/88304 (ICE in use_pointer_in_frame, at tree-nested.c:267)
PR fortran/88304
* tree-nested.c (convert_nonlocal_reference_stmt): Remove clobbers
for non-local automatic decls.
* gfortran.fortran-torture/compile/pr88304.f90: New test.
From-SVN: r266847
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/pr88304.f90 | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/pr88304.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/pr88304.f90 new file mode 100644 index 0000000..fb69b8c --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/pr88304.f90 @@ -0,0 +1,24 @@ +! PR fortran/88304 + +module pr88304 + implicit none + type t + integer :: b = -1 + end type t +contains + subroutine f1 (x, y) + integer, intent(out) :: x, y + x = 5 + y = 6 + end subroutine f1 + subroutine f2 () + type(t) :: x + integer :: y + call f3 + if (x%b .ne. 5 .or. y .ne. 6) stop 1 + contains + subroutine f3 + call f1 (x%b, y) + end subroutine f3 + end subroutine f2 +end module pr88304 |