flang/test/Semantics/common-blocks-warn.f90

   1 ! RUN: %flang -fsyntax-only -pedantic 2>&1 %s | FileCheck %s
   2
   3 ! Test that a warning is emitted when a named common block appears in
   4 ! several scopes with a different storage size.
   5
   6 subroutine size_1
   7   common x, y
   8   common /c/ xc, yc
   9 end subroutine
  10
  11 subroutine size_2
  12   ! OK, blank common size may always differ.
  13   common x, y, z
  14   !CHECK: portability: A named COMMON block should have the same size everywhere it appears (12 bytes here)
  15   common /c/ xc, yc, zc
  16 end subroutine