path: root/gcc/testsuite/gfortran.dg/pr103259.f90

! { dg-do compile }
! PR fortran/103259 - ICE in resolve_common_vars
! Contributed by G.Steinmetz

module m
  integer :: p
  common /c/ p
end
program p ! { dg-error "cannot appear in a COMMON block" }
  use m   ! { dg-error "is also the name of the current program unit" }
end