gcc/testsuite/gfortran.dg/pr103259.f90

   1 ! { dg-do compile }
   2 ! PR fortran/103259 - ICE in resolve_common_vars
   3 ! Contributed by G.Steinmetz
   4
   5 module m
   6   integer :: p
   7   common /c/ p
   8 end
   9 program p ! { dg-error "cannot appear in a COMMON block" }
  10   use m   ! { dg-error "is also the name of the current program unit" }
  11 end