17 lines · plain
1! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s2! Verify varnings on nonconforming DATA statements3! As a common extension, C876 violations are not errors.4program main5 type :: seqType6 sequence7 integer :: number8 end type9 type(seqType) :: x10 integer :: j11 common j, x, y12 !CHECK: Blank COMMON object 'j' in a DATA statement is not standard13 data j/1/14 !CHECK: Blank COMMON object 'x' in a DATA statement is not standard15 data x%number/2/16end17