From: Richard Guenther <rguenther@suse.de>
Date: Thu, 5 Jan 2012 13:28:34 +0000 (+0000)
Subject: re PR lto/41576 (LTO complains about mismatches in common sections)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=76f5732818a46d36dd1ccd80545df81053308a96;p=gcc.git

re PR lto/41576 (LTO complains about mismatches in common sections)

2012-01-05  Richard Guenther  <rguenther@suse.de>

	PR lto/41576
	* gfortran.dg/lto/pr41576_0.f90: New testcase.
	* gfortran.dg/lto/pr41576_1.f90: Likewise.

From-SVN: r182907
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d4a5c9cbf5a..25a52baf960 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2012-01-05  Richard Guenther  <rguenther@suse.de>
+
+	PR lto/41576
+	* gfortran.dg/lto/pr41576_0.f90: New testcase.
+	* gfortran.dg/lto/pr41576_1.f90: Likewise.
+
 2012-01-04  Jakub Jelinek  <jakub@redhat.com>
 
 	PR debug/51695
diff --git a/gcc/testsuite/gfortran.dg/lto/pr41576_0.f90 b/gcc/testsuite/gfortran.dg/lto/pr41576_0.f90
new file mode 100644
index 00000000000..feda0b174cb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/lto/pr41576_0.f90
@@ -0,0 +1,10 @@
+! { dg-lto-do run }
+! { dg-lto-options { { -O2 -flto -Werror } } }
+
+subroutine foo
+  common /bar/ a, b
+  integer(4) :: a ,b
+  a = 1
+  b = 2
+end
+
diff --git a/gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 b/gcc/testsuite/gfortran.dg/lto/pr41576_1.f90
new file mode 100644
index 00000000000..6aefcc875e3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/lto/pr41576_1.f90
@@ -0,0 +1,7 @@
+program test
+  common /bar/ c, d
+  integer(4) :: c, d
+  call foo
+  if (c/=1 .or. d/=2) call abort
+end program test
+