2014-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / common_6.f90
blob8cef179e74f9cc335e976a8b03a748c0bf269f32
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