diff options
| author | Richard Guenther <rguenther@suse.de> | 2012-01-05 13:28:34 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2012-01-05 13:28:34 +0000 |
| commit | 76f5732818a46d36dd1ccd80545df81053308a96 (patch) | |
| tree | 136aa4e80ebf463597c337bd8fd216f5a3bb9a41 /gcc | |
| parent | 543a341c1b5295d1dc494487f96e82908b954436 (diff) | |
| download | gcc-76f5732818a46d36dd1ccd80545df81053308a96.zip gcc-76f5732818a46d36dd1ccd80545df81053308a96.tar.gz gcc-76f5732818a46d36dd1ccd80545df81053308a96.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/lto/pr41576_0.f90 | 10 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 | 7 |
3 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d4a5c9c..25a52ba 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 0000000..feda0b1 --- /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 0000000..6aefcc8 --- /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 + |