aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorJakub Jelinek <jakub@redhat.com>2013-12-17 18:35:59 +0100
committerJakub Jelinek <jakub@gcc.gnu.org>2013-12-17 18:35:59 +0100
commit5a2075280a0143ea1f126e5cd2e3fe4d82064592 (patch)
treeb870f283af553bce27320cd1ac8a8c3f287ec178 /gcc
parent7656ee7297f0995750002facfed65d165e7244b4 (diff)
downloadgcc-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/ChangeLog5
-rw-r--r--gcc/testsuite/gfortran.dg/pr58290.f9033
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