summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/lto/20091015-1_0.f
blob: f47e1a4ac6ccd8069cbb39f32b1121599f56c0b6 (plain)
1
2
3
4
5
6
7
8
! { dg-lto-do link }
! We expect some warnings about mismatched symbol types
! { dg-extra-ld-options "-w" }

      subroutine dalie6s(iqmod6,nz,wx,cor6d)
      common/dascr/iscrda(100),rscrri(100),iscrri(100),idao
      call daall(iscrda,100,'$$IS      ',no,nv)
      end