17 lines · plain
1! RUN: %flang -fsyntax-only -pedantic 2>&1 %s | FileCheck %s2 3! Test that a warning is emitted when a named common block appears in4! several scopes with a different storage size.5 6subroutine size_17 common x, y8 common /c/ xc, yc9end subroutine10 11subroutine size_212 ! OK, blank common size may always differ.13 common x, y, z14 !CHECK: portability: A named COMMON block should have the same size everywhere it appears (12 bytes here)15 common /c/ xc, yc, zc16end subroutine17