2 ! { dg-options "-std=f2018" }
3 ! PR fortran/111880 - redundant warning of obsolescent COMMON with submodule
5 module third_party_module
7 common /not_my_code
/ some_param
! { dg-warning "COMMON block" }
8 end module third_party_module
11 use third_party_module
13 module subroutine bar()
18 submodule (foo
) foo_submod
! We do not need a warning here!
22 end submodule foo_submod