! { dg-do compile } | |
! { dg-options "-std=f2018" } | |
! | |
! PR 85839: [F18] COMMON in a legacy module produces bogus warnings | |
! in dependent code | |
module legacy | |
integer :: major, n | |
common /version/ major ! { dg-warning "obsolescent feature" } | |
public :: n | |
private | |
end module legacy | |
module mod1 | |
use legacy, only: n ! No warning expected here | |
end module mod1 |