1! RUN: %flang_fc1 -fsyntax-only -pedantic %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