gcc/testsuite/gfortran.dg/common_1.f90

   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