flang/test/Semantics/data14.f90

   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.
   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