[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / data14.f90
blob2e8c39508d922ac2d059b0fb37b0190dea505a21
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.
4 program 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/
16 end