1! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
2! Verify varnings on nonconforming DATA statements
3! As a common extension, C876 violations are not errors.
4program main
5  type :: seqType
6    sequence
7    integer :: number
8  end type
9  type(seqType) :: x
10  integer :: j
11  common j, x, y
12  !CHECK: Blank COMMON object 'j' in a DATA statement is not standard
13  data j/1/
14  !CHECK: Blank COMMON object 'x' in a DATA statement is not standard
15  data x%number/2/
16end
17