! { dg-do compile } | |
! { dg-options "-std=f2018" } | |
! PR fortran/111880 - redundant warning of obsolescent COMMON with submodule | |
module third_party_module | |
integer :: some_param | |
common /not_my_code/ some_param ! { dg-warning "COMMON block" } | |
end module third_party_module | |
module foo | |
use third_party_module | |
interface | |
module subroutine bar() | |
end subroutine bar | |
end interface | |
end module foo | |
submodule (foo) foo_submod ! We do not need a warning here! | |
contains | |
module procedure bar | |
end procedure bar | |
end submodule foo_submod |