diff options
author | Jakub Jelinek <jakub@redhat.com> | 2013-12-17 18:35:59 +0100 |
---|---|---|
committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2013-12-17 18:35:59 +0100 |
commit | 5a2075280a0143ea1f126e5cd2e3fe4d82064592 (patch) | |
tree | b870f283af553bce27320cd1ac8a8c3f287ec178 /gcc | |
parent | 7656ee7297f0995750002facfed65d165e7244b4 (diff) | |
download | gcc-5a2075280a0143ea1f126e5cd2e3fe4d82064592.zip gcc-5a2075280a0143ea1f126e5cd2e3fe4d82064592.tar.gz gcc-5a2075280a0143ea1f126e5cd2e3fe4d82064592.tar.bz2 |
re PR middle-end/58290 (error: virtual definition of statement not up-to-date)
PR ipa/58290
* gfortran.dg/pr58290.f90: New test.
From-SVN: r206062
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/pr58290.f90 | 33 |
2 files changed, 38 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5b8a37d..b76e1fc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-12-17 Jakub Jelinek <jakub@redhat.com> + + PR ipa/58290 + * gfortran.dg/pr58290.f90: New test. + 2013-12-17 Thomas Schwinge <thomas@codesourcery.com> * gcc.dg/dfp/wtr-conversion-1.c (testfunc1): Fix typo. diff --git a/gcc/testsuite/gfortran.dg/pr58290.f90 b/gcc/testsuite/gfortran.dg/pr58290.f90 new file mode 100644 index 0000000..b19cdde --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr58290.f90 @@ -0,0 +1,33 @@ +! PR ipa/58290 +! { dg-do compile } +! { dg-options "-O1 -fipa-pta" } + +MODULE pr58290 + TYPE b + CHARACTER(10) :: s = '' + END TYPE b + TYPE c + TYPE(b) :: d + END TYPE c + TYPE h + INTEGER, DIMENSION(:), POINTER :: b + END TYPE h +CONTAINS + SUBROUTINE foo(x, y) + LOGICAL, INTENT(IN) :: x + TYPE(c), INTENT(INOUT) :: y + END SUBROUTINE + FUNCTION bar (g) RESULT (z) + TYPE(h), INTENT(IN) :: g + TYPE(c) :: y + CALL foo (.TRUE., y) + z = SIZE (g%b) + END FUNCTION bar + SUBROUTINE baz (g) + TYPE(h), INTENT(INOUT) :: g + INTEGER :: i, j + j = bar(g) + DO i = 1, j + ENDDO + END SUBROUTINE baz +END MODULE |