| ! { 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 |