[PATCH] testcase for PR41576
Richard Guenther
rguenther@suse.de
Thu Jan 5 13:26:00 GMT 2012
Which was fixed in 4.6 already. We only warn for type mismatches
for symbols in different TUs if they are not structurally compatible.
Richard.
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.
Index: gcc/testsuite/gfortran.dg/lto/pr41576_0.f90
===================================================================
--- gcc/testsuite/gfortran.dg/lto/pr41576_0.f90 (revision 0)
+++ gcc/testsuite/gfortran.dg/lto/pr41576_0.f90 (revision 0)
@@ -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
+
Index: gcc/testsuite/gfortran.dg/lto/pr41576_1.f90
===================================================================
--- gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 (revision 0)
+++ gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 (revision 0)
@@ -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
+
More information about the Gcc-patches
mailing list