| ! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s | |
| ! Verify varnings on nonconforming DATA statements | |
| ! As a common extension, C876 violations are not errors. | |
| program main | |
| type :: seqType | |
| sequence | |
| integer :: number | |
| end type | |
| type(seqType) :: x | |
| integer :: j | |
| common j, x, y | |
| !CHECK: Blank COMMON object 'j' in a DATA statement is not standard | |
| data j/1/ | |
| !CHECK: Blank COMMON object 'x' in a DATA statement is not standard | |
| data x%number/2/ | |
| end |