blob: 5471d40ea38eb94192811438eed6534c314d18e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|