blob: 75f143dde53a59e390a61a4ac3115209c9c284ae [file] [log] [blame]
! RUN: %S/test_errors.sh %s %t %flang_fc1
module m
interface a
subroutine s(x)
real :: x
end subroutine
!ERROR: 's' is already declared in this scoping unit
subroutine s(x)
integer :: x
end subroutine
end interface
end module
module m2
interface s
subroutine s(x)
real :: x
end subroutine
!ERROR: 's' is already declared in this scoping unit
subroutine s(x)
integer :: x
end subroutine
end interface
end module
module m3
interface s
subroutine s
end
end interface
contains
!ERROR: 's' is already declared in this scoping unit
subroutine s
end subroutine
end