internal_references_2.f90

来自「用于进行gcc测试」· F90 代码 · 共 23 行

! { dg-do compile }
! This tests the fix for the regression caused by the internal references
! patc, which is tested by internal_references_1.f90. Reported as PR25901.
!
! Based on test cases provided by Toon Moene  <[e-mail]>
!                          and by Martin Reinecke <[e-mail]>
module aap
  interface s
    module procedure sub,sub1
  end interface
contains
  subroutine sub1(i)
    integer i
    real a
    call sub(a)      ! For the original test, this "defined" the procedure.
  end subroutine sub1
  subroutine sub(a)  ! Would give an error on "already defined" here
    real a
  end subroutine sub
end module aap

! { dg-final { cleanup-modules "aap" } }