blob: d3bd38dc9c6e59123e21e40b702c8e6e2d654a0f [file] [log] [blame]
! RUN: %python %S/test_errors.py %s %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