gcc/testsuite/gfortran.dg/common_27.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do compile }
! PR fortran/108453 - a use associated variable cannot occur in COMMON
! Contributed by G.Steinmetz

module m
  type t
  end type
  real :: r
end
program p
  use m, only: t, r
  common t      ! { dg-error "USE associated from module" }
  common /cm/ r ! { dg-error "USE associated from module" }
end