gcc/testsuite/gfortran.dg/generic_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

! { dg-do compile }
! reduced testcase from PR 17535
module FOO
  interface BAR

    subroutine BAR1(X)
      integer :: X
    end subroutine

    subroutine BAR2(X)
      real :: X
    end subroutine

  end interface
end module

subroutine BAZ(X)
  use FOO
end subroutine