trunk/gcc/testsuite/gfortran.dg/lto/pr41764_0.f

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