22 lines
508 B
Fortran
22 lines
508 B
Fortran
! { dg-do compile }
|
|
! tests various allowed variants of the common statement
|
|
! inspired by PR 18869
|
|
|
|
! blank common block
|
|
common x
|
|
common y, z
|
|
common // xx
|
|
|
|
! one named common block on a line
|
|
common /a/ e
|
|
|
|
! appending to a common block
|
|
common /a/ g
|
|
|
|
! several named common blocks on a line
|
|
common /foo/ a, /bar/ b ! note 'a' is also the name of the
|
|
! above common block
|
|
common /baz/ c /foobar/ d, /bazbar/ f
|
|
|
|
end
|