gcc/testsuite/gfortran.dg/common_6.f90

   1 ! { dg-do compile }
   2 ! PR 23765 : We used to incorrectly accept common blocks with no symbols
   3 common          ! { dg-error "Syntax error" }
   4 common //       ! { dg-error "Syntax error" }
   5 common /a/      ! { dg-error "Syntax error" }
   6 common /b/x/c/  ! { dg-error "Syntax error" }
   7 common y/d/     ! { dg-error "Syntax error" }
   8 common /e//f/   ! { dg-error "Syntax error" }
   9 common ///g/    ! { dg-error "Syntax error" }
  10 end