summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/lto/pr41764_0.f
blob: fd231508383922dfc932e1993d2145bac012d4ef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { dg-lto-do link }
! FIXME: This test used to fail with gold and -fuse-linker-plugin. It is
! here for people testing with RUNTESTFLAGS=-fuse-linker-plugin, but it would
! be nice to create "dg-effective-target-supports linker-plugin" and use it.
      PROGRAM INIRAN
      INTEGER IX, IY, IZ
      COMMON /XXXRAN/ IX, IY, IZ
      END
      BLOCKDATA RAEWIN
      INTEGER IX, IY, IZ
      COMMON /XXXRAN/ IX, IY, IZ
      DATA IX, IY, IZ / 1974, 235, 337 /
      END