1! { dg-do compile }
2! tests various allowed variants of the common statement
3! inspired by PR 18869
4
5! blank common block
6      common x
7      common y, z
8      common // xx
9
10! one named common block on a line
11      common /a/ e
12
13! appending to a common block
14      common /a/ g
15
16! several named common blocks on a line
17      common /foo/ a, /bar/ b      ! note 'a' is also the name of the
18                                   ! above common block
19      common /baz/ c /foobar/ d, /bazbar/ f
20
21      end
22