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